Excel Forum

puriwutpokin wrote: Mon Oct 04, 2021 4:57 pm

Code: Select all

If ActiveCell.Value = ("กำลังขึ้นรูป") Or ActiveCell.Value = ("รอขึ้นรูป") Then

ขอบคุณครับผม

logic wrote: Mon Sep 27, 2021 4:48 pm ต้องเขียนให้ครบแบบนี้ครับ

If activcell.Value = ("กำลังขึ้นรูป") Or activcell.Value = ("รอขึ้นรูป") Then

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

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

If activcell.Value = ("กำลังขึ้นรูป") Or ("รอขึ้นรูป") Then
ActiveCell.Offset(0, -8).Select
ActiveCell.Offset(0, 3).Select
End If

snasui wrote: Sat Jul 18, 2020 2:31 pm ศึกษาตามบทความนี่ได้เลยครับ wordpress/last-cell-that-not-blank/

ตอนท้ายจะมีการยกตัวอย่างและวิธีการแกะสูตรอย่างละเอียดครับ

ขอบคุณครับ

snasui wrote: Sat Jul 18, 2020 11:45 am ตัวอย่างสูตรครับ

เซลล์ D19 คีย์

=LOOKUP(2,1/($C$3:$C$14=$C19),INDEX($F$3:$M$14,0,MATCH(D$18,$F$2:$M$2,0)))

Enter > Copy ไปทางขวา

รบกวนอาจาร์ยช่วยอธิบาย ความหมายหน่อยได้ไหมครับ ไม่เข้าใจว่า 2,1 คืออะไรครับ

รบกวนพี่ๆช่วย ดูหาสูตร แสดงข้อมูลแถวสุดท้าย ตามเงื่อนไขที่เลือก ให้หน่อยครับ

สอบถามสูตรตัวนี้หน่อยครับ
Range(Chr(65) & Trim(151) & ":" & Chr(66) & Trim(153 + (qtyDate * 104) - 1)).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"A7:B140"), Unique:=True
จะเขียน rezize ไปไปแทน แต่ตัวหน้าไม่เหมือนกันจะต้องเขียนยังไงครับ
ผมเขียนได้ประมาณนี้ ถูกไหมครับ
Range("A151 ...

:D เป็นการคัดลอกสูตรจาก AD153 ลงไปด้านล่างครับ

Chr(65) คือ A
Chr(68) คือ D
Trim(153) คือเลข 153

Code พวกนี้ควรเขียนเสียใหม่ให้ง่ายต่อการทำความเข้าใจ เช่น
Range("AD153").AutoFill Destination:=Range("AD153").Resize(qtyDate * 104), Type:=xlFillDefault เป็นต้น


ใช่ครับ อ่านยากมาก T T ขอบคุณครับ ...

:D ไฟล์ที่แนบมาต้องการจะทำอะไร ปัญหาคืออะไร ต้องการคำตอบเป็นอย่างไร กรุณาอธิบายมาด้วยพอสังเขปในช่องความเห็นนี้ด้วยครับ


คือในไฟล์ ต้องการเพิ่มเครื่องจาก 13 เครื่อง เป็น 18 เครื่องครับ
แล้วจะมีการลบช่องออก 3 ช่อง แล้วเพิ่ม ช่อง อีก1 ช่อง ด้าน หลัง และแก้ตัวหาร และเพิ่มสูตรอีก มันค่อนข้างจะส ...

สอบถามเพิ่มเติมหน่อยครับ
Selection.AutoFill Destination:=Range(Chr(65) & Chr(68) & Trim(153) & ":" & Chr(65) & Chr(68) & Trim(153 + (qtyDate * 104) - 1)), Type:=xlFillDefault

คำสั่ง Selection.AutoFill Destination:=Range(.....), Type:=xlFillDefault คือคำสั่งลากสูตรมาตามช่องที่กำหนดใช่รึไม่ครับ ...

ค่าสูตรตามที่คุณเขียน Cells(9 , 3).Select จะอ่านเป็น เลือกเซลล์ใน (แถวที่ 9 ,คอลัมน์ที่ 3) ครับ

ถ้า default เลยก็จะเลือกเซลล์ที่ "C9" ครับ

อ้างอิงด้วยภาพเพิ่มเติมครับ :)
1150.jpg


ขอบคุณครับ :thup:

สอบถามเพิ่มเติมหน่อยครับ
Selection.AutoFill Destination:=Range(Chr(65) & Chr(68) & Trim(153 ...

OnliezU wrote: Fri Nov 02, 2018 10:17 am ค่าสูตรตามที่คุณเขียน Cells(9 , 3).Select จะอ่านเป็น เลือกเซลล์ใน (แถวที่ 9 ,คอลัมน์ที่ 3) ครับ

ถ้า default เลยก็จะเลือกเซลล์ที่ "C9" ครับ

อ้างอิงด้วยภาพเพิ่มเติมครับ
1150.jpg

ขอบคุณครับ

สอบถามความหมายของ คำสั้ง Cell ใน vb ครับ
พอดีต้องแก้สูตรของ คน เก่าที่เขียนไว้

Cells(9 + rwIndex, 3).Select
ตัว rwIndex เป็นตัวแปรที่รับ ค่า เป็นตัวเลข ถ้า ค่า rwIndex = 0
ค่าสูตรจะได้ Cells(9 , 3).Select
ตำแหน่ง 9 คือ คอลัม ที่ 9 แถว ที่ 3 ใช่ไหม ครับ

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

:D ตัวอย่างการปรับ Code ครับ

Public line As Long

Private Sub cmdok1_Click()
Sheets("isue").Select
Range("B10000").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Value = cbbat.Text
ActiveCell.Offset(1, 1).Value = txtq.Text
ActiveCell.Offset(1, 2).Value = txtc.Text
ActiveCell ...

สอบถาม พี่ หน่อย ครับ
เก็บข้อมูลจากช่อง Combo box ไปเก็บอีกชีท แล้วกลับมาลบข้อมูล ในตำแหน่งเดิม
แล้วยก ข้อมูล ด้านล่างจากตำแหน่งที่ลบ โดยไม่ ลบ ROW
ต้องเขียนแบบไหน ดีครับ
ตามไฟล์แนบเลยครับ

สอบถามเพิ่มเติมครับ หลังจากที่แสดงค่าในช่อง text box เเล้ว กดปุ่ม "เบิก"
ให้นำค่าแต่ละ text box ไป เก็บที่ sheet isue
1.ให้กลับไปที่ sheet เดิม และตำแหน่งของ เดิมของ ข้อมูล Combo box
2ลบข้อมูลที่ส่งไป เก็บที่ sheet isue
3ยกข้อมูลด้านล่างขึ้นมาทั้งหมด โดยไม่ลบ Row ต้องเขียนสูตรยังไง ดีครับ
:D :D

ขอบคุณครับ

:D ตัวอย่าง Code ครับ

Private Sub cbbat_Change()
With Application.WorksheetFunction
txtq.Value = .VLookup(cbbat.Text, Sheets("J01").Range("DATAJ01"), 2, False)
End With
End Sub


ขอบคุณครับ อาจาร์ย
สอบถามอีกหน่อยครับ ตอนนี้ Sheet ผมมีแค่ J01-J02 ถ้ามีการ เพิ่มชีท ถึง48 ชีท
ผมจะเอา ชื่อของ ...

ขอบคุณครับ ผมไปตรวสอบอยู่ที่ ช่องที่จะแสดงนี้เองถึงไม่ขึ้น T T