กรอกข้อมูลแทรก
Posted: Thu Jul 11, 2019 3:32 pm
อยากให้กรอกข้อความใส่ที่ติกสีแดง แล้วขึ้นในช่องB13 แต่ตอนนี้กรอกแล้วขึ้นในช่องB26
Snasui Excel Forum
คลังคำตอบแห่งความรู้จากคนไทย เพื่อโลกที่ต้องการเข้าใจในสิ่งเล็ก ๆ อย่างลึกซึ้ง
https://snasui.com/
กรอกข้อมูลแทรก
Page 1 of 1
Re: กรอกข้อมูลแทรก
Posted: Thu Jul 11, 2019 3:44 pm
ทำตามกฎข้อ 3 ครับ
Re: กรอกข้อมูลแทรก
Posted: Thu Jul 11, 2019 4:07 pm
ตอนนี้คือกรอก 1 ในช่องC1 มันขึ้นในช่องB26 คืออยากให้C1ห้อแล้วแทรกในช่องB13
Re: กรอกข้อมูลแทรก
Posted: Thu Jul 11, 2019 6:27 pm
แนบไฟล์ Excel มาด้วยจะได้สะดวกในการถาม-ตอบของเพื่อนสมาชิกครับRe: กรอกข้อมูลแทรก
Posted: Fri Jul 12, 2019 1:20 pm
addแล้วกรอกข้อมูล(E5)มันจะไปอยู่ล่างสุด(D154) อยากให้ กรอกข้อมูล ไทย แล้วไปต่อท้าย(D91)snasui wrote: Thu Jul 11, 2019 6:27 pm
Re: กรอกข้อมูลแทรก
Posted: Fri Jul 12, 2019 2:00 pm
ลองใช้ do...loop หาค่าบรรทัดครับ
อันนี้แค่ตัวอย่างการ loop ลองเอาไปปรับใช้ดูครับ
อันนี้แค่ตัวอย่างการ loop ลองเอาไปปรับใช้ดูครับ
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Not Intersect(Target, Range("E5:AC11")) Is Nothing And Range("B4").Value = False And Range("B5").Value = False Then
Do
i = i + 1
Loop Until Range("d14").Offset(i, 0).Value = ""
MsgBox Range("d14").Offset(i, 0).Address '<~~~ Show เซลล์ว่าง
Cells(Range("B3").Value, Cells(Target.Row, Target.Column + 29).Value).Value = Target.Value
End If
End Sub