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)...

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 ไปไปแทน แต่ตัวหน้าไม่เหมือนกันจะต้องเขียนยังไงครับ ผมเขียนได้ป...

: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) & T...

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 Acti...

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

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

ขอบคุณครับ

: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