Snasui Excel Forum

9 คือ ปีปัจจุบันค่ะ = 19
1 คือ เดือนปัจจุบัน = 01
09 คือ วันที่ค่ะ

แต่โปรแกรมมันคำนวนณถูกต้องแล้วค่ะ
แต่ติดตรงที่ว่า ถ้า แถวไหน ของ column G เป็นช่องว่าง ให้โปรแกรม column I และ column J แสดงผลออกมาเป็น ค่าว่างด้วยค่ะ ตอนนี้ที่ติดอยู่

Column G ใส่ตัวเลข 910911
โปรแกรม จะคำนวนให้column I และ J
โดย เอาจาก column G มาคำนวน

แต่ที่ต้องการให้ วนลูป คือค่าที่ใส่มา ใน column G rows ที่ 9 โปรแกรม ก็จะคำนวนใน column I และ J แต่ค่าที่ได้แนบไฟล์ไปนั้น โปรแกรม มันคำนวนต่อๆกันมา โดยที่ ใน column G ยังเป็นค่าว่างอยู่

โปรแกรมจะคำนวน ด้วย column G ค่ะ แล้วจะไปแสดงผลที่ column I และ J ค่ะ แต่ อยากให้มันคำนวน โดยแถวต่อแถวค่ะ

Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer
i = 1
For i = 9 To 39


If Target.Address = Range("$G$" & i).Address Then

Dim lot As String

lot = Range("$G$" & i + 1).Value

'If Len(lot) <= 0 Then
'Exit Sub
'End If

'Dim a As String
Dim x As String
'a = getLotabc(x)
x = Range ...

สวัสดีค่ะ พอดี มีโค้ดแล้วให้วนรอบ โดยมีเงื่อนไขว่า
ถ้า คีย์ data column G data จะแสดง ใน column J แต่ติดปัญหาตรง ค่าของ row อื่นๆ แสดง ตามด้วย

ถึง column G ไม่ได้ใส่ค่า แต่ ข้อมูลจะแสดง เพราะใส่การวนค่า I

Code vba ค่ะ
If target.address = range (“$G$” & i ).adderss then
If Ucase (Target.value ...

รบกวนผู้รู้ดู โค้ดให้หน่อยค่ะ

เนื่องจาก พอเวลา กด ปุ่ม Search เเล้วอยากได้ค่า ที่ออกมาล่าสุด เเต่โค้ดอันนี้ค่าที่แอดไปตอนเเรกมาเเสดงคะ

Sub search_data()
Range("B15:K18").Select
Selection.ClearContents
s_data = ([C11].Value)
If (s_data = "") Then
Range("C11").Select
MsgBox "ãÊèàÅ¢ Serial No"
Else ...

ต้องการโค้ดดักข้อมูลซ้ำ
กรอก Number โดยมีเงื่อนไข ถ้า Number เป็น 00001 Status = in Add ได้
เเต่ Number 00001 Status = in Add ไม่ได้ นอกจาก Status = out เท่านั้น