Diễn đàn game đá bóng

Diễn đàn game đá bóng.

You are not logged in.

#1 2020-08-03 04:36:35

wcdatynhoeet
Member
Registered: 2020-08-02
Posts: 2,573
Website

EXP.GG 電玩速時面

3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
September 03, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
2 9 月, 2020.
2 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
3 9 月, 2020.
2 9 月, 2020.
2 9 月, 2020.
聯絡我們.
© 2020 Exp All Rights Reserved.


LAX Girl Mod vô dụng ‍♂️ Thành viên BQT  Moderator 

Offline

#2 2020-08-08 07:56:58

vulpheous
Member
Registered: 2020-08-04
Posts: 4,934
Website

Re: EXP.GG 電玩速時面


Sau đó lưu file với DanhBa.xls Bước 2a: Nhấn tổ hợp phím Alt_F11 Bước 2b: Nhấp chuột phải chọn Insert- Module (Hình H1) Bước 2c: Chép đoạn code sau vào Bước 3: Chạy thủ tục : LayTenDanhBa (Hình H2) Bước 4: Trở lại màn nhập vào Ô D4 = SDT (B4) (Hình H3) Vậy là chúng ta đã được danh bạ số  điện thoại  từ các file *.vcf Sau đâu là code VBA Option Explicit Public MangFile(0 To 40000) As String Sub LayTenDanhBa() 'File này chay Dim i As Long, MyDir, khung, cot1, cot2, cot3, khung1, khung2, khung10, TenSheets, KH As String Dim Dong, j, Sofile As Integer Dim MangFile(2000) As String TenSheets = ActiveSheet

Offline

#3 2020-09-05 08:48:47

vulpheous
Member
Registered: 2020-08-04
Posts: 4,934
Website

Re: EXP.GG 電玩速時面

сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
сайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайтсайт
tuchkasсайтсайт


Sau đó lưu file với DanhBa.xls Bước 2a: Nhấn tổ hợp phím Alt_F11 Bước 2b: Nhấp chuột phải chọn Insert- Module (Hình H1) Bước 2c: Chép đoạn code sau vào Bước 3: Chạy thủ tục : LayTenDanhBa (Hình H2) Bước 4: Trở lại màn nhập vào Ô D4 = SDT (B4) (Hình H3) Vậy là chúng ta đã được danh bạ số  điện thoại  từ các file *.vcf Sau đâu là code VBA Option Explicit Public MangFile(0 To 40000) As String Sub LayTenDanhBa() 'File này chay Dim i As Long, MyDir, khung, cot1, cot2, cot3, khung1, khung2, khung10, TenSheets, KH As String Dim Dong, j, Sofile As Integer Dim MangFile(2000) As String TenSheets = ActiveSheet

Offline

FB88

Board footer

Powered by FluxBB