Excel Forum

สวัสดีครับ อาจารย์
ผมเคยศึกษา VBA นานมากแล้วครับ จากเว็บนี้แหละครับ
พอไม่ได้ใช้มาเป็นเวลาประมาณ 2-3 ปี ก็เลยลืมหมดเลย
ตอนนี้เริ่มต้นไม่ถูกเลยครับ ยังไงขออนุญาตรบกวนขอความช่วยเหลือหน่อยครับ

จากรูป
Test.jpg

ผมต้องการสร้างปุ่ม Copy ข้อความ H2 และ I2 โดยเมื่อกดปุ่มแล้ว
ให้ทำการค้นหาค่าในช่อง G2 ว ...

ผมได้ความรู้จากเว็บนี้เยอะมากครับ อาจารย์มาตอบให้เร็ว และคนอื่นๆ ก็มาช่วยกันตอบอีกด้วยครับ

ขอบคุณครับ กำลังทำเรื่องนี้อยู่พอดีครับ

อีกวิธีนึงที่อยากแนะนำครับ

กดเลือก Cell D1 ถึง D60000

จากนั้นไปเลือก Data > Text to Columns

จากนั้นก็กด Next 2 ครั้ง แล้วก็ Finish

ลองดูนะครับ

ไม่เข้าใจคำถามครับ

คืออยากทราบว่า วันที่ที่จะให้แสดง อ้างอิงจากตรงไหนมาครับ

ถ้าอย่างนั้น เลือกเอาเครื่องหมายถูกออกให้หมดเลยครับ

ตรงหน้า Select Unlock Cells และ Select locked Cells

ทำได้ครับ โดยกดไปที่ Format > Protect Sheet

จากนั้นก็ใส่ Password เข้าไปครับ

ในส่วนของ Sus ลองสูตรนี้ดูครับ

=IF(AND(A2<B2,A2>=C2),"Sus","")

โทษทีครับ มัวพิมพ์อยู่ เลยไม่ได้ดูว่า อาจารย์มาตอบให้แล้ว

ขออภัยด้วยครับ

ที่ช่อง C1 ใส่สูตรนี้

=RANDBETWEEN(RandMin/100,RandMax/100)*100

ที่ช่อง C2 ใส่สูตรนี้

=IF(SUM(C$1:C1)<$B$3,IF((ReqTotal-SUM(C$1:C1))<=RandMax, $B$3-SUM(C$1:C1),RANDBETWEEN(RandMin/100,MIN((ReqTotal-RandMin)-SUM(C$1:C1),RandMax/100))*100),SUM(C$1:C1)<(ReqTotal-RandMin))

จากนั้น Copy แล้ว Paste ...

=RANDBETWEEN(10,200)*100

ลองแบบนี้ดูครับ ลด Min Max ลงมา แล้วคูณด้วย 100 ทีหลังครับ

ขอโทษครับ อาจารย์

ผมผิดเองครับ ทำได้แล้ว ขอบคุณมากครับ

อาจารย์ครับ ผมลองแล้วไม่ได้ครับ

มัน Error ตรงบรรทัด

Sheets("F01").Range("B12").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

ครับ

สวัสดีครับ ผมจะทำการ Copy ข้อมูล CY2 ถ้ามากกว่า 0 ให้ Copy บรรทัดนั้นไป Sheet!01 ครับ



Sub CopyData()

For i = 1 To 10

If Cells(i + 1, 103).Value > 0 Then
Sheets(Data).Range("B2:CW2").Copy
Sheets("01").Range("B12").End(xlUp).Offset(1, 0).Select
ActiveSheet.PasteSpecial xlPasteValues

End If ...

ที่ช่อง H3 ลองเพิ่มสูตรไปตามนี้ดูครับ

=IF(OR(F3="",G3=""),"",IF(F3=G3,"P","O"))

ลองใส่สูตรนี้ลงไปดูครับ ช่องใดก็ได้

=IF(J8<>"",J8-G8,IF(H8<>"",H8-G8,$B$1-G8))

ไม่ทราบว่าจะได้ผลตรงตามที่ท่านต้องการหรือไม่นะครับ

tupthai wrote:ลองทดสอบดูครับ

Code: Select all

If ActiveCell.Column >= 7 Or ActiveCell.Row <> 3 Then
    Cells(3, 2).Select
Else
    ActiveCell.Offset(0, 1).Select
End If

ได้แล้วครับ ขอบคุณครับ

เดี๋ยวผมเอาไปประยุกต์ใช้กับปุ่มอื่นต่อ

If ActiveCell.Column = 7 Then
Cells(3, 2).Select
Else
ActiveCell.Offset(0, 1).Select
End If

ได้แล้วครับ ขอบคุณครับ

ผมเพิ่มเครื่องหมายเป็น >= เข้าไปด้วย จึงทำให้เวลาเลือกเซลล์ตั้งแต่คอลัมน์ที่ 7 เป็นต้นไป แล้วกดปุ่ม > มันจะไปเริ่มที่ B3 ใหม่ให้

แต่อยากได้เพิ่มเติมตรงที่ถ้าเราเลือกที่เซลล์อื่น ...

ลองใช้สูตรนี้ดูครับ

=IF(AND(A=B,B=C,C=D),SUM(A:D),IF(AND(A=B,B=C),SUM(A:C),IF(A=B,SUM(A:B),A)))

แนบไฟล์ตัวอย่างมาให้แล้วครับ