กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
291 1
URL.หัวข้อ /
URL
ถึงคุณ Suchat
จากคำถามที่ถามไว้
เนื่องจากช่อง A ใน Excel มีค่าว่างทั้งหมด จึงทำให้มีการ Loop แค่ครั้งเดียว
.Update
i = i + 1
If XlSheet.Range("A" & i).Value = "" Then
Chk = True
End If
Loop
ให้ใช้ช่อง B แทน ดังนี้
.Update
i = i + 1
If XlSheet.Range("B" & i).Value = "" Then
Chk = True
End If
Loop
เนื่องจากช่อง A ใน Excel มีค่าว่างทั้งหมด จึงทำให้มีการ Loop แค่ครั้งเดียว
.Update
i = i + 1
If XlSheet.Range("A" & i).Value = "" Then
Chk = True
End If
Loop
ให้ใช้ช่อง B แทน ดังนี้
.Update
i = i + 1
If XlSheet.Range("B" & i).Value = "" Then
Chk = True
End If
Loop
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01381
ขอบพระคุณ อ.สุภาพ มากๆ ครับ สามารถทำได้แล้วครับ
เห็นว่าตอนนี้กำลังยุ่งกับ งานที่ มหาลัย เสียดายจังที่ผมไม่ได้อยู่ใกล้ๆ จะได้ไปเคารพ อ.สุภาพ สักครั้ง
ขอบพระคุณมากๆ ครับ
สุชาติ
ชลบุรี
Time: 0.1190s