Excel Forum

yodpao.b wrote:ComboBox ในฟอร์ม มีคำสั่งไหนไหมครับ ที่สั่งไม่ให้พิมพ์ ใช้เลือกได้เพียงอย่างเดียว

ดูตรง properties ของ ComboBox

ตรง style เลือกเป็น 2-fm style

Private Sub Worksheet_Activate()
ActiveWindow.Zoom = 85
ActiveWindow.Zoom = 100
End Sub

นำโค้ดนี้ไปวางไว้ใน ชีท1 ครับ

:D ดูตัวอย่างที่นี่แล้วปรับใช้ดูครับ :arrow: http://snasui.com/viewtopic.php?p=13158#p13158

ได้แล้วครับ ComboBox1 แต่ว่าในfrom มี ComboBox มากกว่า 1 และต้องการข้อมูลมาในลักษณะเดียวกันต้องเพิ่มโค้ดอย่างไรครับ
แต่ข้อมูลอยู่กันละคอลัมครับ


Private Sub UserForm_Initialize()
Dim rall As Range
Dim r ...

snasui wrote: ดูตัวอย่างที่นี่แล้วปรับใช้ดูครับ viewtopic.php?p=13158#p13158

ขอบคุณครับ สุดยอดจริงๆ ครับ

ขอบคุณครับ
ขอถามต่นิดหนึ่งครับ ถ้าจะเอาทั้งคอลัม มาเป็นรายการให้เลือกละครับต้องเขียนอย่างไรครับ

เราสร้าง ComboBox ใน form แล้วดึงข้อมูลในคอลัม A1 ในชีต1 มาแสดงได้อย่างไรครับ

เมื่อทำ link รูปภาพแล้ว แต่หลังจากดูภาพตัวอย่างก่อนพิมพ์แล้ว ขนาดของภาพเปลี่ยนไป
จะมีวิธีการแก้ไขอย่างไร เพื่อไม่ให้ขนาดภาพหลังจากดูตัวอย่างก่อนพิมพ์เปลี่ยนไป
ลองดูตามไฟล์ที่แนบนะครับ
ขอบคุณท่านผู้รู้ครับ

ปัญหานี้ผมก็เคยเป็นครับ กรณีในชีตแรกหลังจากดูภาพตัวอย่างก่อนพิมพ์แล้ว ขนาดของภาพเปลี่ยนไปน ...

เมื่อเปิดไฟล์แล้วมันขึ้นมาตามไฟล์แนบครับ

snasui wrote: ไม่ทราบว่าต้องการทำอะไร คำตอบที่ถูกต้องเป็นอย่างไร ช่วยอธิบายโดยยกตัวอย่างประกอบด้วย จะได้เข้าใจตรงกันครับ

อยากให้ คอลัม f เรียงลำดับคะแนนในดอลัม d ครับ
คอลัม f
-
4
3
-
3
2
1
1
1

พอดีว่าผมได้นำเอาสูตร ลำดับคะแนนที่อาจารย์โพส์ไว้ไปใช้
แต่ผมเพิ่มเติมไปนิดหนึ่ง แต่มันerror ช่วยดูให้หน่อยครับว่าผิดพลาดตรงไหนครับ

ไฟล์แนบครับ

ขอบคุณครับ

การดึงข้อมูลจากเซลล์ที่ผสานกัน
มาแสดงในเซลล์ที่ไม่ผสานแล้วสามารถ แล้วสามารถคัดลอกสูตรไปเซลล์อื่นได้
ไฟล์แนบครับ

ขอบคุณมากๆครับ

แต่มันติดเหมือนเดิมอีกแล้วครับ แต่คราวนี้เป็นการแทรกรูปครับ
ติดตรงยกเลิกเหมือนเดิมครับ

Sub Insert_Pict()
Dim Pict
Dim ImgFileFormat As String
ImgFileFormat = "Image Files (*.bmp),others, tif (*.tif),*.tif, jpg (*.jpg),*.jpg"
GetPict:
Pict = Application.GetOpenFilename(ImgFileFormat ...

พอดีว่าผมบันทึกแมโคร เกี่ยวกับการ Save As ขึ้น
แต่ว่ามันติดอยู่ตรง ถ้ากดยกเลิก มัน ก็ยัง Save อยู่ อาจารย์ช่วยแนะนำด้วยครับ
ส่วนกด Save มัน บันทึกปกติครับ
โค้ดครับ พร้อมไฟล์แนบครับ

Sub SaveAs()
FileSaveName = Application.GetSaveAsFilename( _
fileFilter:="WorkbookMacro (*.xlsm),*.xlsm")
If ...

คือว่ามีข้อมูลอยู่ 8 ช่อง แต่ละช่องกรอกข้อมูลตั้งแต่ 0-3 และต้องการสรุปให้ได้ตาเงื่อนไขนี้ครับ
ตรงสรุป... เงี่อนไขมีอยู่ว่า..
1. จะสรุปได้ 3 ก็ต่อเมื่อ ได้ระดับ 3 จำนวน 5 - 8 ข้อ และไม่มีข้อใดที่ได้ต่ำกว่าระดับ 2
2. จะสรุปได้ 2 ก็ต่อเมื่อได้ระดับ 3 จำนวน 1 - 4 ข้อ และไม่มีข้อใดที่ได้ต่ำกว่าระดับ 2 ...

เวลาเปิดไฟล์ที่มีแมโค มันขึ้น error
เปิดใน win7 และ excel 2007 แต่เปิดที่เครื่องอื่นได้ปกติครับ
รูปภาพตามไฟล์แนบครับ

มันต้องแก้ยังไงครับ

ขอบคุณครับผมพอเข้าใจแล้วครับ

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

Sub Macro6()
pwd = "1234"
Workbooks.Open Filename:="schoolname.xlsx"
Windows ...

นี้ไฟล์ครับ ครับ ผมลองรันดูแล้ว
ยังติดครับ

พอดีว่าผมจะทำโค้ด ให้สั่งไปคัดลอกจาก ไฟล์อื่นมาวางในไฟล์ที่มีโค้ดนี้
มีปัญหาตรงวางครับ
นี้โค้ดครับ
Sub Macro6()
pwd = "1234"
Workbooks.Open Filename:="schoolname.xlsx"
Windows("schoolname.xlsx").Activate
ActiveSheet.Unprotect (pwd)
If Err.Number <> 0 Then
MessageBox.Show ("password incorrect ...

snasui wrote: Orlando เขียน Program แจกฟรี สำหรับ Convert Excel เป็น .exe สามารถ Download ได้ทีนี่ครับ Convert Excel to .exe

อ่านรายละเอียดได้ที่นี่ครับ http://orlando.mvps.org/Index.asp?IdC=E ... ee#XLtoExe

ขอบคุณมากๆ ครับ