Dim sPicture As String, pic As Picture sPicture = Application.GetOpenFilename _ ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _ , "please select picture as you want") If sPicture = "False" Then Exit Sub Set pic = ActiveSheet.Pictures.Insert(sPicture) With pic .ShapeRange.LockAspectRatio = msoFalse .Height = ActiveCell.Height .Width = ActiveCell.Width .Top = ActiveCell.Top .Left = ActiveCell.Left .Placement = xlMoveAndSize End With Set pic = Nothing
ผมไม่แน่ใจว่าจะตอบตรงคำถามหรือไม่น่ะครับ 1. คลิก File->Option->เลือกหัว Save (อยู่ฝั่งด้านซ้าย) 2. คลิกให้มีเครื่องหม้ายขีดถูกในช่องสี่เหลี่ยม หน้าข้อความ Save AutoRecover Infomation every 3. ใส่เวลา แล้วกดปุ่ม Ok หากไม่ตรงคำถามผมต้องขออภัยน่ะครับ หรือจะดูเพิ่มเพิ่มจาก Web นี้ก็ได้ครับ trumpexcel.com/turn-on-autosave-excel/#Turn-On-AutoSave-in-Excel-from-the-Options-Dialog-box ขอบคุณครับ
Dim sPicture As String, pic As Picture sPicture = Application.GetOpenFilename _ ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _ , "please select picture as you want") If sPicture = "False" Then Exit Sub Set pic = ActiveSheet.Pictures.Insert(sPicture) With pic .ShapeRange.LockAspectRatio = msoFalse .Height = ActiveCell.Height .Width = ActiveCell.Width .Top = ActiveCell.Top .Left = ActiveCell.Left .Placement = xlMoveAndSize End With Set pic = Nothing
@@jakkritchanchaivanitchon394 ออ ครับ น่าจะเป็นบางคำสั่งไม่สามารถรันได้กับ Mac ครับ link นี้เผื่อจะมีประโยชน์ครับ docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/hh710200(v=office.14)
สอนเข้าใจง่ายมาก
ขอขอบคุณสำหรับความรู้ดีๆ ที่มีให้กันคะ 💗🙏👍👍👍
ยืนดีครับ
นั่งดูแมวอ้วน เพลินเลย ขอบคุณค่ะ 😊
ขอบคุณครับ
ขอบคุณนะคะ อธิบายเข้าใจง่าย ไม่ทราบว่าใช้โปรแกรมหรือแอพอะไรทำคลิปวิดีโอคะ
ยินดีมากครับที่ได้ให้ความรู้ครับ การทำคลิปก็จะใช้โปรแกรมฟรี แต่ถ้าจะให้แนะนำผมว่า OBS เหมาะครับ
@@roon ขอบคุณมากค่ะที่แนะนำ
แทรกรูปแล้วไม่โชว์เส้นตารางเชลเหมื่อนของจารต้องทำไงหลอครับ
ปกติมันมีเส้นใช่มั้ยครับ
ลองไปที่เมนู view แล้ว คลิก ให้มีขีดถูกในช่อง gridline
หรือไปที่ file ->option-->advance เลื่อนมาในส่วนของหัวข้อ thisplay options for this worksheet
คลิกให้มีเครื่องหมายขีดถูกตรง show gridline
เดี๋ยวจะลองทำตามครับ ขอบคุณมากสำหรับความรู้ดีๆๆ
ยินดีมากครับ
สอบถามหน่อยครับถ้าอยากให้มันไม่เต็ม cel โดยเว้นด้านละ 1 cm หรือ 1mm ทุกด้านต้องทำไงครับ
ลองไปกำหนดที่ home --> Alignment --> indent ครับ
ขอบคุณมากครับ ลองแล้วใส่ได้แต่ช่องเซลล์เดี่ยว แต่ ถ้าเป็นช่องผสมเซลล์ พอจะมีวิธีไหมครับ
ผมขอลองทำก่อนนะครับ ได้ผลอย่างไรจะแจ้งนะครับ ขอบคุณครับ
@@roon ขอบคุณมากครับ ปักธงรอเลยครับผม
@@roon รบกวนด้วยครับ ผมก็อยากทราบวิธีเหมือนกันครับ
อยากได้ code จังเลยค่ะ
Code อยู่ที่คำอธิบายใต้คลิปครับ คัดลอกไปใช้ได้เลยครับ
แฟนแล้ว เปีดอีกคั้งไม่ด็าย
ให้ save เป็นไฟล์นามสกุล .xlsm (Microsoft Excel Macro-Enabled Spreadsheet) ครับ
ทำตามเเล้ว.พอปิดเครื่อง.เปีดไหม่ทำไมเปีดไม้ได้ครับมันบอกError
ให้ save เป็นไฟล์นามสกุล .xlsm (Microsoft Excel Macro-Enabled Spreadsheet) ครับ
กดModule แล้วcode ไม่ขื้น
Code อยู่ที่คำอธิบายใต้คลิปครับ copy ไปใช้เลยครับ ขอบคุณครับ
มีวิธีป้องกันการลบรูปด้วยไหมครับ
กำลังหาวิธีอยู่ครับ ส่วนใหญ่จะบอกว่าให้ทำการป้องกัน sheet แทนครับ
ขอบสอบถามเพิ่มเติมครับ อัพได้ แต่ไม่สามารถดูรูปภาพที่อัพโหลดบนมือถือ แอนดรอยและ ios ได้ครับ แก้ไขยังไงครับ
ผมแนะนำ ให้ save เป็น pdf file สำหรับการเปิดดู และถ้าจะแก้ไข ก็ส่งไฟล์ใน mail หรือ cloud ครับ
ขออภัยหากตอบไม่ตรงคำถาม
ขอบคุณครับ
ผมแนะนำ ให้ save เป็น pdf file สำหรับการเปิดดู และถ้าจะแก้ไข ก็ส่งไฟล์ใน mail หรือ cloud ครับ
ขออภัยหากตอบไม่ตรงคำถาม
ขอบคุณครับ
@@roon ขอบคุณมากครับ
อาจารย์ครับโค๊ต เอามาจากไหนครับ งงตรงโค๊ต
อยู่ที่คำอธิบายให้คลิปครับ
เข้าใจง่ายมากค่ะ ขอบคุณนะคะ
ยินดีมากครับ
😍😍😍😍😍😍เยี่ยมเลยค่ะอาจารย์
ขอบคุณครับ
ผมงง ตรง code ครับเอามาจาใหนเหรอครับ
Code อยู่ใต้คลิปครับ
ตั้งแต่บรรทัด
Dim
ถึง
บรรทัด set
คัดลอกไปใช้เลยครับ
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "please select picture as you want")
If sPicture = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
Set pic = Nothing
@@roon ครับเดียวลองทำดูครับ
ใช้ได้ครับแต่เปิดเป็น Auto save ไม่ได้ มีวิธีแก้ไหมครับ
ผมไม่แน่ใจว่าจะตอบตรงคำถามหรือไม่น่ะครับ
1. คลิก File->Option->เลือกหัว Save (อยู่ฝั่งด้านซ้าย)
2. คลิกให้มีเครื่องหม้ายขีดถูกในช่องสี่เหลี่ยม หน้าข้อความ Save AutoRecover Infomation every
3. ใส่เวลา แล้วกดปุ่ม Ok
หากไม่ตรงคำถามผมต้องขออภัยน่ะครับ
หรือจะดูเพิ่มเพิ่มจาก Web นี้ก็ได้ครับ
trumpexcel.com/turn-on-autosave-excel/#Turn-On-AutoSave-in-Excel-from-the-Options-Dialog-box
ขอบคุณครับ
ทำไมรูปพึ่งโหลดมาหาไม่เจออะ
ลองเปลี่ยนนามสกุล เป็น jpg นะครับ
หรือเพิ่มการมองเห็นนามสกุลตาม code ใต้คำอธิบายครับ
ขอบคุณครับ
ขอสูตรหน่อยได้ไหมค่ะ
อยู่ใต้คลิปครับ แต่เพื่อความสะดวก ผม วางไว้ให้ในนี้เลยครับ copy ไปใช้เลยครับ ขอบคุณครับ
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "please select picture as you want")
If sPicture = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = ActiveCell.Height
.Width = ActiveCell.Width
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Placement = xlMoveAndSize
End With
Set pic = Nothing
นามสกุลภาพ มีผลมั้ยคับ อาจารย์
ใน code จะสามารถใช้ไฟล์ภาพ *.gif; *.jpg; *.bmp; *.tif ตามนี้
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "please select picture as you want")
แต่ ถ้าต้องการ file นามสกุลอื่นใส่เพิ่มได้ครับ เช่น ต้องการ ไฟล์ png ก็ใส่เพิ่มแบบนี้ครับ
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif, *.png), *.gif; *.jpg; *.bmp; *.tif; *.png", _
, "please select picture as you want")
ขอบคุณที่ติดตามน่ะครับ
ถ้าภาพที่ต้องการจะแทรกเป็นภาพแนวตั้ง แต่เซลล์ที่จะให้ภาพแทรกลงไปเป็นแนวนอน แบบนี้สัดส่วนของภาพจะเพี้ยนไป เราสามารถทำให้ความกว้าง ความสูงของเซลล์ เปลี่ยนแปลงไปตามสัดส่วนของภาพได้หรือไม่ครับ รบกวนอาจารย์ด้วยครับ
อันนี้ขอศึกษาหาข้อมูลเพิ่มเติมอีกครั้งน่ะครับ ขอบคุณครับ
เวลา ส่งไฟล์ แล้วรูปหายหมดเลยค่ะ หรือ ถ้าเราลบรูปในคอม รูปที่อยู่ใน excal ก็หายไปด้วยแบบนี้ทำไงไ้ด้บ้างคะ ขอบคุณล่วงหน้านะคะ
วิธีแรก
ให้ save เป็นไฟล์นามสกุล .xlsm (Microsoft Excel Macro-Enabled Spreadsheet) ครับ แต่ถ้ายังไม่ได้อีก
วิธีที่ 2
อาจต้อง copy ทั้ง folder ไปครับ แต่แนะนำวิธีแรกก่อนครับ ขอบคุณครับ
ของผมมันขึ้น Error
Run-time error '1004': Method 'GetOpenFilename' of object '_Application' failed
รบกวนขอวิธีแก้ไขได้ไหมครับ
@@jakkritchanchaivanitchon394
ให้ save เป็นไฟล์นามสกุล .xlsm (Microsoft Excel Macro-Enabled Spreadsheet) ครับ
@@roon ลองแล้วครับยังไม่ได้ครับ ผมใช้ Mac ไม่แน่ใจว่าโค้ดต้องเปลี่ยนไหมครับ
@@jakkritchanchaivanitchon394 ออ ครับ น่าจะเป็นบางคำสั่งไม่สามารถรันได้กับ Mac ครับ
link นี้เผื่อจะมีประโยชน์ครับ
docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/hh710200(v=office.14)
เซฟเสร็จแล้ว ส่งไฟล์ให้เพื่อน เพื่อนเอาไปเปิดแต่รูปไม่ขึ้น เป็นเพราะอะไรครับ
ให้ save เป็นไฟล์นามสกุล .xlsm (Microsoft Excel Macro-Enabled Spreadsheet) ครับ แต่ถ้ายังไม่ได้อีก อาจต้อง copy ทั้ง folder ไปครับ เพราะเป็นเพราะหา file ภาพไม่เจอก็ได้ครับ
@@roon ขอบคุณครับ
ขอ Facebook หน่อยครับ