Snasui Excel Forum

ขอบคุณมากๆครับ Code ใช้ได้ตามต้องการแล้วครับ มันดูง่ายและเป็นระเบียบขึ้นเยอะเลยครับ
ผมอยากถามต่อสักนิดครับ ถ้าผมต้องการดึงคำที่ต่อจาก คำว่า Thailand ออกมาวางใน Cell ต้องใช้คำสั่งอะไรครับ

สมมติ F.txt

d
f
we
q dj Thailand Beautiful
fe
e


จาก .txt ดังกล่าวจะเห็นได้ว่าก่อนที่จะกด Enter ได้มีข ...

แนบไฟล์ใหม่ครับ
ผมแนบไฟล์ .txt ลงไม่ได้ครับ
รบกวนทดลองสร้างไฟล์ . txt ตามนี้น่ะครับ

A.txt

d
a
g
h
Thailand
1
5
6

B.txt
d
a
gfweas
hfef
Thai1land
1
5
6


C.txt
dfeaf
a
g
h
Thailand555
1
5
6

D.txt
dw
adwad
g
h
aaaThailand
1
5
6dwadwa

E.txt
d
adwad
g
h
Thaaailand
1
5dwa
6

ต้องวางไฟล ...

ครับผม Code ที่ผมลองเขียนตอนนี้ใช้ได้แล้วครับ แต่ผิดปัญหาคือมันทำงานเข้า Loop แสดงผล Pass แต่ไม่เข้าทำงานแสดงผล Fail ครับ
ผมต้องแก้ไขยังไงครับ รบกวนช่วยดูให้หน่อยครับ

Sub Check_word()
'
' Check_word Macro
' Trairong B.
'
Dim r As Integer
r = 1
Range("A1").Select
Do Until IsEmpty(ActiveCell ...

สวัสดีครับ

ผมอยากจะประยุกต์ใช้ code vba สำหรับตรวจสอบข้อมูลในไฟล์ .txt ว่ามีข้อความว่า Thailand ที่ปรากฏอยู่ในตำแหน่งใดๆก็ได้ของไฟล์ .txt
โดยการกำหนดตำแหน่งไฟล์ที่จะไปเช็ค ผมจะเป็นคนพิมพ์เองในเซลล์ใดๆ เช่น เซลล์ A1 ระบุตำแหน่ง D:\test\sample.txt
อยากได้ code สำหรับแสดงผลในช่อง B1 ว่ามันมีข้อความว ...