Excel Forum

ผมลองเอามาปรับเพิ่มใส่ date picker ขออภัยด้วยครับ

ขอบพระคุณครับ ใช้งานได้แล้วครับ

ผมต้องการเอาค่า sum ในช่อง M3 ของ sheet 1 ซึ่งมีค่าของคอลัมม์ตั้งแต่ B3 ที่ตรงกับคอลัมม์ B1:Y1 มาใส่ในช่อง B2 ของ sheet 2 ด้วย lookup แต่ทำไม่ได้ รบกวนขอแนะด้วยครับ ขอบพระคุณครับ

ขอบพระคุณมากครับ สามารถใช้งานได้แล้วครับ

ปรับตามนี้ครับ Sub Createhyper() Dim sh As Worksheet Dim wSheet As Worksheet Sheets("Main").Range("B6").Select Application.ScreenUpdating = False For Each wSheet In Worksheets If wSheet.Name <> "Main" Then ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="&q...

ขออนุญาตขอคำแนะนำเรื่อง Hyperlink ใน VBA โดยผมต้องการสร้าง hyperlink จากชื่อ sheet ตั้งแต่ชีทที่ A1 เป็นต้นไป และยกเว้นชีทชื่อ Main แต่ code ที่ผมมีจะสร้างชื่อชีททั้งหมด ขอคำแนะนำในการปรับแก้ไขด้วยครับ ขอบพระคุณครับ Sub Createhyper() Dim sh As Worksheet Dim wSheet As Worksheet Sheets("Main"...

... B2 =RIGHT(YEAR(TODAY())+543+(COLUMNS($B2:B2)>6),2)&TEXT(INT((COLUMNS($B2:B2)+1)/2)+IF(COLUMNS($B2:B2)<7,9,-3),"00")&"-XX-0"&MOD(COLUMNS($B2:B2)-1,2)+1 Copy ไปขวา ** สนับสนุนฟอรั่ม กรุณา คลิกโฆษณาที่หน้าเพจ*** แมวใหญ่ Bigcat9 RCA พระราม9 กรุงเทพฯ ... ขอบพระคุณครับ...

แบบนี้หรือเปล่าครับอาจารย์ ตรวจสอบก่อนว่ามีโฟลเดอร์นี้ไหม ถ้าไม่มีให้สร้างใหม่ หลังจากนั้นให้เปิดโฟลเดอร์ที่กำหนดครับ Sub openFolder() Dim fileToOpen As Variant Dim fileFilterPattern As String Dim myPath As String Application.ScreenUpdating = False myPath = "C:\Teacher" If Not PathExist(my...

... 1.ต้องการให้เขียนสูตรที่ใด 2. ผลลัพธ์นั้น ควรเป็นเท่าใด ทำตัวอย่าง คีย์มือมาดูครับ 3. เลข 1 ถึง 20 ที่คอลัมน์ A หมายถึงอะไร มีความเกี่ยวข้องกับสูตรที่ต้องการ หรือไม่ครับ หรือแบบนี้ไหม =HSTACK(RIGHT(YEAR(TODAY())+543,2)&INT(SEQUENCE(,6,2)/2)+9&"-XX-",RIGHT(YEAR(TODAY())+544,2)&...

... 1.ต้องการให้เขียนสูตรที่ใด 2. ผลลัพธ์นั้น ควรเป็นเท่าใด ทำตัวอย่าง คีย์มือมาดูครับ 3. เลข 1 ถึง 20 ที่คอลัมน์ A หมายถึงอะไร มีความเกี่ยวข้องกับสูตรที่ต้องการ หรือไม่ครับ หรือแบบนี้ไหม =HSTACK(RIGHT(YEAR(TODAY())+543,2)&INT(SEQUENCE(,6,2)/2)+9&"-XX-",RIGHT(YEAR(TODAY())+544,2)&...

อยากให้เลขหน้า 2 หลัก เปลี่ยนไปทุกปี และตามด้วยเลขเดือนโดยเริ่มต้นที่เดือนตุลาคม เช่น 6701-XX-01 และเปลี่ยนตัวเลขหลัง XX เป็นเลขงวด 01 และ 02 (1 เดือนมี 2 งวด) และสิ้นสุดที่เดือนกันยายนและงวดที่ 2 เช่น 6809-XX-02 6701-XX-01 เลขหน้า 2 หลักเป็นปี พ.ศ. และเลขต่อมา 2 หลัก เป็นเดือน และคั่นด้วยตัวอักษร ต...

ลองแบบนี้ไหมครับ https://www.extendoffice.com/documents/ ... omments_10

ขอบพระคุณครับอาจารย์

:D ตัวอย่างการ Query ข้อมูลจาก Google Sheet มาเทียบกับค่าเป้าหมายใน Excel ครับ Sub Import_Sheets_to_Excel() Dim QRT As QueryTable, ul As String, ky As String With Worksheets("Main") If .QueryTables.Count > 0 Then .QueryTables(1).Delete .Range("b1:b2").ClearContents End If ky = &...

ขออนุญาตสอบถามกรณีผมเขียน code เพื่อให้ทำงานตอนเปิดไฟล์ excel ให้ตรวจสอบกับช่อง A1 ใน workbook ชื่อชีท Main ถ้ามีค่าน้อยกว่า ในช่อง A1 ของไฟล์ google sheet ชื่อชีท version ให้แสดงข้อความแจ้งเตือน แต่ติด error ตัวนี้ครับ Compile Error: Expected Array ขอคำแนะนำด้วยครับ ขอบพระคุณครับ Sub Checkver() Dim...

:D เกิดจากหัว Report มีหลายบรรทัด มีการ Merge เอาไว้ การหาค่าบรรทัดว่างเพื่อวางข้อมูลจะผิดพลาด วิธีการด้านล่างเป็นการปรับตัวแปรให้เป็นบรรทัดที่พร้อมวางข้อมูลครับ 'Other code For Each s In Worksheets If s.Name <> M.Name Then 'ª×èÍäÁèµÃ§¡Ñ¹ s.Range("A1:Z1").Copy lr = M.Range("C34"...

ขออนุญาตครับ ผมได้เพิ่มคอลลัม์ C เข้ามา ทำให้รัน VB แล้วไม่สามารถ copy ข้อมูลจากชีทอื่นมาวางที่ชีท Main ตั้งแต่คอลัมม์ B ลงมาจนครบทุกชีทไม่ได้ รบกวนขอคำแนะด้วยครับ ขอบพระคุณครับ Sub copy_unit() Dim s As Worksheet Dim M As Worksheet Set M = Sheets("Main") Dim lr As Long For Each s In Worksh...

snasui wrote: ↑Mon Feb 26, 2024 2:53 pm ก็เป็นไปตามที่ผมแจ้งไปแล้วในโพสต์ก่อน คือเปิดไม่ได้ และทำงานต่อไม่ได้

การที่จะ Clear รูปแบบหรือสิ่งใด ๆ ก็ตามต้องเปิดไฟล์ขึ้นมาให้ได้ก่อน ซึ่ง Code ที่เขียนให้นั้นคือสั่งให้เปิดไฟล์ครับ

แก้ไขได้แล้วครับอาจารย์ ปรับแก้ที่เว็บที่ส่งออกข้อมูลเลยครับ

run time error 9 ครับอาจารย์ Sub add2() 'On Error Resume Next Application.DisplayAlerts = False Application.ScreenUpdating = False Dim FNames As Variant Dim Cnt As Long Dim MstWbk As Workbook Dim ws As Worksheet Dim wb As Workbook Set MstWbk = ThisWorkbook FNames = Application.GetOpenFilename(fileFi...

ตามภาพครับอาจารย์