Excel Forum

:D อ่านแล้วยังไม่กระจ่างครับ กรุณายกตัวอย่างค่าที่ถูกต้องลงมาในเซลล์คำตอบว่าเซลล์ไหนต้องการคำตอบเป็นเท่าใด ด้วยเงื่อนไขใดจะได้สะดวกต่อการทำความเข้าใจของเพื่อนสมาชิกครับ เบื้องต้นลองสูตรสำหรับการหาผลต่างของ 2 ตารางตามด้านล่าง เซลล์ T27 คีย์สูตร =MAX(0,T16-T4) Enter > Copy ไปทางขวาและลงด้านล่าง > ใส่หั ...

:D ตัวอย่าง Code ครับ Private Sub CommandButton1_Click() Dim filename As String, lineText As String Dim my_range As Range filename = "C:\Users\Wanchai\Desktop\new file.txt" ' Set fso = VBA.CreateObject("Scripting.FileSystemObject") If Sheet2.ckbxReplace.Value = True Then Open filename For Output As # ...

:D ตัวอย่าง Code ครับ Private Sub CommandButton1_Click() Dim filename As String, lineText As String Dim my_range As Range filename = "C:\Users\Wanchai\Desktop\new file.txt" If VBA.Dir(filename) = "" Then Set fso = VBA.CreateObject("Scripting.FileSystemObject") Set oFile = fso.CreateTextFile(logPath) ...

ตัวอย่างการปรับสูตรครับ

AC8 คีย์

=IF(B8="","",IFERROR(TRUNC(SUMPRODUCT(IFERROR($E$7:$V$7*E8:V8,0))/SUMPRODUCT($E$7:$V$7,--ISNUMBER(--E8:V8)),2),"-"))

Enter > Copy ลงด้านล่าง

:D ตัวอย่างสูตรครับ แทรกคอลัมน์ Z มา 1 คอลัมน์ จากนั้นที่ AA10 คีย์สูตร =IF(SUM($Z10:Z10)>=LOOKUP(9.99999999999999E+307,$P$10:$P10),"",IF(OR(COUNTIFS(Holiday!B3:$B$22,AA$9),WEEKDAY(AA$9,2)=7),"",IF(AA$9<$S10,"",IF(LOOKUP(9.99999999999999E+307,$P$10:$P10)>=SUM($Z10:Z10)+$V10*AA$7,$V10*AA$7,MAX(0,LOOKU ...

หากในคอมพ์ไม่มีต้องไปดาวน์โหลดมาติดตั้งใหม่ครับ https://learn.microsoft.com/en-us/answe ... 0-provider

:D The example code is below. Sub Test1() Dim ws As Worksheet Dim firstAddress As String Dim cell As Range, sv As String Dim cpRngs As Range Set ws = ThisWorkbook.Sheets("Date") Set wt = ThisWorkbook.Sheets("Paster") With wt sv = wt.Range("b1").Value .UsedRange.Offset(1, 0).ClearContents End With ...

ส่วนไหนใน Code ที่เป็น Path ของรูปจะต้องกำหนดใหม่ให้ตรงกับที่ใช้จริง ไม่เช่นนั้นจะไม่ได้คำตอบ การใช้ Userform ได้แสดงว่ามีความรู้เกี่ยวกับการใช้ Code พอสมควร เมื่อทำการ Debug แล้วจะทราบเองได้ไม่ยาก ไม่เช่นนั้นก็ต้องศึกษาเพิ่มเติม ติดตรงไหนค่อยมาถามกันต่อครับ

:D ตัวอย่าง Code ครับ Private Sub CommandButton2_Click() Dim Mem_ID As String Dim lastrow, i As Integer Dim imgPth As String imgPth = "C:\Images\" Mem_ID = TextBox1.Text With Me.Image1 If Dir(imgPth & Mem_ID & ".jpg") <> "" Then .Picture = LoadPicture(Filename:=imgPth & Mem_ID & ".jpg") .PictureAlign ...

ใส่รูปใน Form ที่กล่าวถึงหมายถึงใส่ยังตำแหน่งใด มีเงื่อนไขอย่างไรบ้าง กรุณาอธิบายประกอบมาด้วยครับ

:D ลองปรับใช้ Code ด้านล่างดูครับ Sub CheckAcces() Dim wsMain As Worksheet Dim wsSection As Worksheet Dim mainValue As String Dim sectionValue As String Dim foundRow As Long Dim matchFound As Boolean Dim i As Long Dim j As Long ' ¤é¹¨Ò¡ªÕ·Main áÅÐ Section Set wsMain = ThisWorkbook.Sheets("Main") Set ...

ทางเทคนิคคิดว่าทำได้ด้วย Google Apps Script ลองเขียนมาเองดูก่อน ติดแล้วถามกันต่อครับ

มันอยู่ใน Google Sheets ตัวที่เป็นปลายทางที่ให้มาด้านบน มีปุ่มให้คลิกรันเรียบร้อยแล้ว ไม่ทราบว่าคลิก Link ไปแล้วกลายเป็นหน้าไหนครับ

:D Please try this code. Sub Test0() Dim fOne As Range, fStt As Range Dim lstC As Range, srRngs As Range If Not IsNumeric(Worksheets("Paster").Range("B1")) Then MsgBox "The value in A1 is not a valid number.", vbExclamation Exit Sub End If With Worksheets("Date") Set lstC = .Range("b" & .Rows.Count ...

:D The example of code is below. 'Othe code ' Loop through each row in the Date sheet and copy rows based on the value in column A For i = 2 To lastRowDate ' If wsDate.Cells(i, 1).Value = cellValue Then wsDate.Rows(i).Copy Destination:=wsPaster.Rows(destRow) destRow = destRow + 1 ' End If Next i ...

จาก Error ดูเหมือนจะไม่มีให้ Inport in-cell image ครับ

ลองรัน Script ตาม Link นี้ที่ผมไปลองเพิ่มให้ดูว่าได้หรือไม่ครับ https://script.google.com/u/0/home/proj ... -QQS7/edit

เดิม Copy ด้วยวิธีไหน อย่างไร กรุณาแจกแจงวิธีการ นอกจากนี้หากมี Link ให้ทดสอบด้วยก็จะดี เพื่อน ๆ จะได้ช่วยดูให้ได้ครับ

:D ตัวอย่างสูตรตามด้านล่างครับ ที่ A1 คีย์คีย์สูตรเพื่อแสดงชื่อชีต สามารถกำหนดสีตัวอักษรให้เหมือนกับสีพื้นหลังเพื่อจะได้ไม่เกะกะสายตาได้ =TRIM(RIGHT(SUBSTITUTE(CELL("filename",A1),"]",REPT(" ",50)),50)) Enter ที่ D3 คีย์ =VLOOKUP($A$1,รายชื่อบริษัท!$A$3:$G$5,4,0) Enter ที่ C6 คีย์ =VLOOKUP($A$1,รายชื ...

Upgrade Forum จาก Version 3.3.12 เป็น 3.3.13 เมื่อ 31 Aug 2024 เพื่อให้มวลมหาสมาชิกได้ใช้ Forum ที่ทันสมัยอยู่ตลอดเวลาไม่น้อยหน้าใครในโลกครับ

:D ลองปรับส่วนด้านล่างนี้ดู ติดตรงไหนค่อยถามกันต่อครับ 'Other code With Worksheets("Paid_No") .Range("a" & .Rows.Count).End(xlUp).Offset(1, 0).Resize(, 177).Value = _ Worksheets(strShN).Cells(rw, "a").Resize(, 177).Value End With 'Other code