:!: โปรดทราบ Image
    1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ดครับ Image
    2. การสมัครสมาชิกเพื่อโพสต์คำถาม ดาวน์โหลดไฟล์แนบไปศึกษา ทำตามขั้นตอนด้านล่างครับ
      1. สมัครสมาชิก ดูขั้นตอนตาม Link นี้ครับ => สมัครสมาชิก กรณีลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่นี่ครับ => Reset รหัสผ่านImage
      2. Login เข้าระบบโดยคลิก Login ตรงมุมขวาบนของหน้านี้ Image กรณีมีปัญหาในการเข้าใช้งาน คลิก Link นี้เพื่อแจ้งผู้ดูแลระบบครับ => ติดต่อผู้ดูแลระบบ
    3. เมื่อ Login แล้วสามารถกำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษได้ที่ Link นี้ครับ => ตั้งค่าส่วนตัว Image
    4. วิธีการตั้งและตอบกระทู้ดูได้ที่ Link นี้ครับ => วิธีการตั้งและตอบกระทู้ Image
    5. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ Link นี้ครับ => จัดรูปแบบตัวอักษร และสามารถกำหนดขนาดตัวอักษรใน Browser ได้ที่นี่ครับ ==> กำหนดขนาดตัวอักษรใน Browser Image

Search found 925 matches

by puriwutpokin
Thu Nov 23, 2017 7:39 pm
Forum: Excel
Topic: รบกวนช่วยแก้ไขสูตรจัดเรียงข้อมูลครับ
Replies: 7
Views: 81

Re: รบกวนช่วยแก้ไขสูตรจัดเรียงข้อมูลครับ

Anucha Janthongmuang wrote:ขอบคุณครับสำหรับคำตอบ ถามอีกหน่อยครับทำไม AND ที่ผมเลือกใช้จึงไม่ไม่เป็นผลครับ

มันให้คำตอบเป็นค่าเดี่ยวครับ​ สูตรเป็นarray ต้องเป็นarrayเช่นกันครับ​ ลองครอบช่วงสูตรที่ใช้and กับที่ปรับไป​ โดยกดf9 แล้วดูผลครับ
by puriwutpokin
Thu Nov 23, 2017 6:50 pm
Forum: Excel
Topic: รบกวนช่วยแก้ไขสูตรจัดเรียงข้อมูลครับ
Replies: 7
Views: 81

Re: รบกวนช่วยแก้ไขสูตรจัดเรียงข้อมูลครับ

รบกวนแก้ไขสูตรเพิ่มเติมที่ sheet Install Plan Daily ตำแหน่ง cell I11 ลงไปครับ ลักษณะการทำงานคล้ายกับที่ถามก่อนหน้าแต่เพิ่มการตรวจสอบเข้าไปเงือนไขคือ เวลา,ชื่อ ตรงกันให้ดึงข้อมูลมาแสดง ข้อมูลที่ดึงอยู่ที่ sheet Installation Plan Column A เงื่อนไขที่ Column G=เวลา,U=ชื่อ สูตรที่ลองปรับใช้จากคำตอบเมื่...
by puriwutpokin
Thu Nov 23, 2017 5:27 pm
Forum: Excel
Topic: ต้องการดึงข้อมูลจากsheet1 ไป sheet2
Replies: 2
Views: 24

Re: ต้องการดึงข้อมูลจากsheet1 ไป sheet2

ลองทำตัวอย่างที่เป็นมากกว่าคำว่า ข้อมูลมาดูครับ เพราะเท่านี้ยังไม่เข้าใจข้อมูลประเภทไหนบ้าง แล้วหัวคอลัมน์
มีบางช่องบางช่องไม่มีใช่หรือครับ
by puriwutpokin
Thu Nov 23, 2017 5:25 pm
Forum: Excel
Topic: ขอสอบเรื่องการพิมพ์รหัสแล้วให้กลายเป็นชื่อสินค้าครับ
Replies: 7
Views: 54

Re: ขอสอบเรื่องการพิมพ์รหัสแล้วให้กลายเป็นชื่อสินค้าครับ

Not Intersect(Target, e) Is Nothing Intersect คือการที่ค่า Target นั้นอยู่ในช่วง e อินเตอร์เซคกัน ถ้าไม่ใช่ช่วงดังกล่าว เป็น False ไม่ต้องทำต่อ แต่ถ้าอยู่หรืออินเตอร์เซค เป็น True ก็ไปต่อ คำสั่ง Application.EnableEvents เวลาเขียนโค้ดที่ให้รันทันทีเวลาเปลี่ยนแปลงค่าในเซลล์ครับ เพื่อป้องกันไม่ให้รันโ...
by puriwutpokin
Thu Nov 23, 2017 4:02 pm
Forum: Excel
Topic: ขอสอบเรื่องการพิมพ์รหัสแล้วให้กลายเป็นชื่อสินค้าครับ
Replies: 7
Views: 54

Re: ขอสอบเรื่องการพิมพ์รหัสแล้วให้กลายเป็นชื่อสินค้าครับ

ตัวอย่างโค้ดครับ เปิด Alt+F11 เลือกชีท Sheet2 ใส่โค้ดที่ปรับตามนี้ครับ Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim e As Range Set e = Sheet2.Range("a1:a4") Set Lookup_Range = Sheet1.Range("a2:b4") If Target.Count > 1 Then Exit Sub If Not Intersect(Target,...
by puriwutpokin
Thu Nov 23, 2017 1:51 pm
Forum: Excel
Topic: สอบถามสูตร Excel ค่ะ
Replies: 56
Views: 617

Re: สอบถามสูตร Excel ค่ะ

ที่ B2=SUMPRODUCT((การเบิก!G$2:G$13=B$1)*(TEXT(การเบิก!E$2:E$13,"[$-409]mmmm")=A1)) copy down
by puriwutpokin
Thu Nov 23, 2017 11:16 am
Forum: Excel
Topic: สอบถามสูตร Excel ค่ะ
Replies: 56
Views: 617

Re: สอบถามสูตร Excel ค่ะ

ปรับเป็น=SUMIFS(การเบิก!$J$3:$J$1000,การเบิก!$F$3:$F$1000,"ได้รับแล้ว",การเบิก!$G$3:$G$1000,"*"&LOOKUP(CHAR(255),A$2)&"*",การเบิก!$H$3:$H$1000,B2)
by puriwutpokin
Thu Nov 23, 2017 11:11 am
Forum: Excel
Topic: ขอสอบเรื่องการพิมพ์รหัสแล้วให้กลายเป็นชื่อสินค้าครับ
Replies: 7
Views: 54

Re: ขอสอบเรื่องการพิมพ์รหัสแล้วให้กลายเป็นชื่อสินค้าครับ

ควรแนบไฟล์ตัวอย่างมาด้วยครับจะได้เข้าใจตรงกันครับ และระบุ ดาต้า และเซลที่จะให้แสดงค่ามาครับ
by puriwutpokin
Wed Nov 22, 2017 4:40 pm
Forum: Excel
Topic: ขอสอบเรื่องการพิมพ์รหัสแล้วให้กลายเป็นชื่อสินค้าครับ
Replies: 7
Views: 54

Re: ขอสอบเรื่องการพิมพ์รหัสแล้วให้กลายเป็นชื่อสินค้าครับ

ถ้าจะใช้เป็น VBA ต้องเขียนมาเองการครับ ตามกฏของบอร์ด เบิ้องต้อง ถ้าคีย์เซลนั้นแล้วขึ้น ค่าเมื่อมีการเปลี่ยนแปลง
ต้องใช้เป็น VBA Event ครับใส่โค้ดที่ชีทที่ต้องการให้เมื่อมีการเปลี่ยนแปลงครับ ลองค้นหาจากคำว่า
VBA Vlookup ใน Google ก่อนครับติดขัดมาถามกันในนี้ครับ
by puriwutpokin
Wed Nov 22, 2017 4:33 pm
Forum: Excel
Topic: สอบถามเกี่ยวกับ แทนค่า ใน macro
Replies: 11
Views: 63

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

ตัวอย่างครับโค้ดที่ปรับครับ ก่อนหน้านี้ผมตอบทางมือถือเลยไม่ได้เทสท์ครับ

Code: Select all

'Other Code...
Dim R, X, Y As Integer
R = 24
X = 10
Y = 25
Range("BO" & R).Value = Application.Max(Range("E" & X, "H" & Y))
'Other Code...
by puriwutpokin
Wed Nov 22, 2017 2:27 pm
Forum: Excel
Topic: สอบถามเกี่ยวกับ แทนค่า ใน macro
Replies: 11
Views: 63

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

พอจะมีตัวอย่างไหม ครับ ส่งยังไง ขอบคุณครับ ตัวอย่างโค้ดครับ Dim​ R, X, Y As Integer R=24 X=10 Y=25 Range("BO"&R).Value = Application.Max(["E"&X&":H"&Y]​​) ลองเข้าไปใส่ Application.Max กับ Min มันไม่มี Max-Min ให้นะครับ ปรับเป็น application.Worksheetfunc...
by puriwutpokin
Wed Nov 22, 2017 11:35 am
Forum: Excel
Topic: สอบถามเกี่ยวกับ แทนค่า ใน macro
Replies: 11
Views: 63

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

titus wrote:พอจะมีตัวอย่างไหม ครับ ส่งยังไง ขอบคุณครับ

ตัวอย่างโค้ดครับ

Code: Select all

Dim​ R, X, Y As Integer
R=24
X=10
Y=25
Range("BO"&R).Value = Application.Max(["E"&X&":H"&Y]​​)
by puriwutpokin
Wed Nov 22, 2017 10:26 am
Forum: Excel
Topic: สอบถามเกี่ยวกับ แทนค่า ใน macro
Replies: 11
Views: 63

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

titus wrote:สอบถามเพิ่มเติมหน่อยครับ ใน
"=MAX(E10:H25)"

เราสามรถ แทน ค่า 10 และ 25 ด้วยตัวแปลได้ไหมครับ

"=MAX(E10:H25)" เป็นสูตรที่ไปอยู่ในหน้าชีท​ ในเซลโดยตรง​ ไม่สามารถ​ใช้ค่าตัวแปรได้ในสูตรครับ​ เว้นแต่ให้ส่งค่า​ max เป็นค่าไปที่เซลนั้นๆครับ
by puriwutpokin
Wed Nov 22, 2017 9:35 am
Forum: Excel
Topic: สอบถามเกี่ยวกับ แทนค่า ใน macro
Replies: 11
Views: 63

Re: สอบถามเกี่ยวกับ แทนค่า ใน macro

ลองปรับเป็น และถ้าไม่ผ่านอย่างไร แบบไฟล์ตัวอย่างมาด้วยครับ

Code: Select all

Range("BO"&R).Value = "=MAX(E10:H25)"
by puriwutpokin
Tue Nov 21, 2017 7:44 pm
Forum: Excel
Topic: ไฟล์สรุปการลาประจำปี
Replies: 4
Views: 53

Re: ไฟล์สรุปการลาประจำปี

ที่ปรับ D7=INT(SUMPRODUCT(HOUR(tblAbsenceLog!$E$3:$E$500)*(tblAbsenceLog!$B$3:$B$500=$B7)*(tblAbsenceLog!$D$3:$D$500=D$5)*(TEXT(tblAbsenceLog!$C$3:$C$500,"[$-1010409]mmmmyyyy;@")=$X$2&$AA$2-543))/8) copy ไปเซลที่เกี่ยวข้อง R7=INT(SUMPRODUCT((tblAbsenceLog!$B$3:$B$500=$B7)*(tblAbsenceLo...
by puriwutpokin
Tue Nov 21, 2017 6:14 pm
Forum: Excel
Topic: รบกวนสอบถาม vba ปุ่ม save แล้วส่งข้อมูลข้ามไฟล์ครับ
Replies: 27
Views: 207

Re: รบกวนสอบถาม vba ปุ่ม save แล้วส่งข้อมูลข้ามไฟล์ครับ

ได้แล้วครับ ขอบคุณทั้งสองท่านครับ puriwutpokin logic แล้วจากโค๊ดนี้ Public Sub Save() Dim source As Range Dim Lr As Integer Dim mySheet As String Application.ScreenUpdating = False With Workbooks("รับเข้า.xlsm").Sheets("รับเข้า") LL = Application.CountIf(.Range("a3:a41"...
by puriwutpokin
Tue Nov 21, 2017 4:33 pm
Forum: Excel
Topic: ดึงข้อมูลใน Sheet2 ให้ปรากฏใน Sheet1 เพียงแค่เลือกCellเดียว???
Replies: 1
Views: 33

Re: ดึงข้อมูลใน Sheet2 ให้ปรากฏใน Sheet1 เพียงแค่เลือกCellเดียว???

ที่ C2=IFERROR(VLOOKUP($I$2,ระเบียน!$A$2:$F$15,3,0),"")
และคัดลอกสูตรไปไว้ที่ C4 แล้วเปลี่ยนเลข 3 สีแดง เป็น 4
และคัดลอกสูตรไปไว้ที่ B6 แล้วเปลี่ยนเลข 3 สีแดง เป็น 6
และคัดลอกสูตรไปไว้ที่ L2 แล้วเปลี่ยนเลข 3 สีแดง เป็น 2
และคัดลอกสูตรไปไว้ที่ I4 แล้วเปลี่ยนเลข 3 สีแดง เป็น 5
by puriwutpokin
Tue Nov 21, 2017 1:41 pm
Forum: Excel
Topic: รบกวนสอบถาม vba ปุ่ม save แล้วส่งข้อมูลข้ามไฟล์ครับ
Replies: 27
Views: 207

Re: รบกวนสอบถาม vba ปุ่ม save แล้วส่งข้อมูลข้ามไฟล์ครับ

ได้แล้วครับ ขอบคุณทั้งสองท่านครับ puriwutpokin logic แล้วจากโค๊ดนี้ Public Sub Save() Dim source As Range Dim Lr As Integer Dim mySheet As String Application.ScreenUpdating = False With Workbooks("รับเข้า.xlsm").Sheets("รับเข้า") LL = Application.CountIf(.Range("a3:a41"...
by puriwutpokin
Tue Nov 21, 2017 12:00 pm
Forum: Excel
Topic: รบกวนสอบถาม vba ปุ่ม save แล้วส่งข้อมูลข้ามไฟล์ครับ
Replies: 27
Views: 207

Re: รบกวนสอบถาม vba ปุ่ม save แล้วส่งข้อมูลข้ามไฟล์ครับ

ขอบคุณครับ puriwutpokin ได้แล้วครับ แต่มีข้อสงสัยอีกอย่างครับ คือผมเขียนโค๊ดไว้แบบนี้ครับ Private Sub Worksheet_open() Range("formtime") = Now() End Sub แต่ทำไมเมื่อปิดแล้วเปิดใหม่ formtime ไม่อัพเดทเวลาเป็นปัจจุบันครับ ต้องไปกด run ถึงจะอัพเดท ทั้งๆที่ ผมเขียนไว้ใน sheet เลย ปรับเป็น Ran...
by puriwutpokin
Tue Nov 21, 2017 11:04 am
Forum: Excel
Topic: รบกวนสอบถาม vba ปุ่ม save แล้วส่งข้อมูลข้ามไฟล์ครับ
Replies: 27
Views: 207

Re: รบกวนสอบถาม vba ปุ่ม save แล้วส่งข้อมูลข้ามไฟล์ครับ

ขอบคุณครับ puriwutpokin ได้แล้วครับ แต่มีข้อสงสัยอีกอย่างครับ คือผมเขียนโค๊ดไว้แบบนี้ครับ Private Sub Worksheet_open() Range("formtime") = Now() End Sub แต่ทำไมเมื่อปิดแล้วเปิดใหม่ formtime ไม่อัพเดทเวลาเป็นปัจจุบันครับ ต้องไปกด run ถึงจะอัพเดท ทั้งๆที่ ผมเขียนไว้ใน sheet เลย ปรับเป็น Ran...

Go to advanced search