Snasui Excel Forum

ตัวอย่างในไฟล์นะครับ
สีฟ้า คือ กลุ่มเลข
สีส้ม คือ เลขที่ต้องการหาผลรวม
สีเหลือง คือ ชุดเลขที่คำนวนออกมา ใกล้เคียงกับสีส้ม

ไม่ทราบว่าจะเขียนสูตรยังไงครับ สงสัยน่าจะเป็น vba

-------------

ธีมใหม่เว็บ สวยงาม สะอาดตาดีครับ

รบกวนช่วยดูไฟล์หน่อยครับ ไม่รู้พลาดสูตรตรงไหนครับ

รายการด้านขวา ไม่อัพเดต

:D จากข้อ 2 Index คือชีทไหน เซลล์ไหนครับ :?:

สำหรับข้อ 3 หากต้องการใช้ VBA ให้เขียนมาก่อนครับ ติดตรงไหนสามารถถามมาได้เรื่อย ๆ กรณีไม่เคยเขียนให้ผู้ที่เขียนได้เขียนมาก่อนครับ

ชีท input ครับ คือไม่ต้องใส่ Axxx ใส่รันออโต้เลย เราคีย์แต่ข้อมูล แล้วเวลาเซฟให้ excel รันเลขindexต่เลย ที่ database เลย ...

:D เปลี่ยน Range Name ให้อ้างถึงช่วงเซลล์ใหม่ครับ โดย

EditRef ให้อ้างถึง =Input!$B$6
IndexFML ให้อ้างถึง =Input!$O$6:$P$14

ได้แล้ว ความตาถั่วของผมเอง :tt:

ขอต่อข้อสอง สามนะครับ

2. ตอนเซฟแล้ว เลข index ไม่ใส่ออโต้เอง ผมต้องแก้ไขยังไง
3. ใน sheet "input"
จะมี 3 ตาราง ในตารางที่2 ผมต้องการ G4 ...

มันเป็น button macro นะครับ ผมไม่รู้ดู define ยังไง
ผมแนบภาพมาให้ทีขั้นของการเซฟครับ เยอะไปหน่อยขออภัยครับ

มันมี error พอกดเซฟแล้วมันเลื่อน form ลง( Column B sheet input)
ไม่รู้จะอธิบายยังไง ลองดูนะครับ

1. อยากให้ดู error ให้
2. ตอนเซฟแล้ว เลข index ไม่ใส่ออโต้เอง ผมต้องแก้ไขยังไง
3. ใน sheet "input"
จะมี 3 ตาราง ในตารางที่2 ผมต้องการ G4 เป็นช่องค้นหา คือไม่ต้องเลขรหัส จะใส่เบอร์ ใส่ชื่อ ก็ค้นหา
ประมาณน ...

อาจารย์ครับ

แล้วถ้าเราต้องการหาทั้งตารางฐานข้อมูลละครับ พอทำตัวอย่างได้ไหม เอาไฟล์แนบข้างบนที่อาจารย์แนบละครับ

:rz: โค้ดก็โค้ดของอาจารย์ละครับ กับของเว็บต่างประเทศ ผมเอายำยำกัน

พอดี จะสร้างปุ่มไว้สำหรับก็อปสำรองไฟล์ ในงานที่ออฟฟิสนะครับ

http://snasui.wordpress.com/2011/01/31/%E0%B8%81%E0%B8%B2%E0%B8%A3%E0%B8%AA%E0%B8%A3%E0%B9%89%E0%B8%B2%E0%B8%87-folder-%E0%B9%83%E0%B8%AB%E0%B8%A1%E0%B9%88%E0%B9%82%E0%B8 ...

ลากเม้าส์คลุมในช่องที่ต้องการแสดงเงื่อนไข

ใช้เงื่อนไข ( condition )

=AND(MOD($A2,2)=1,$A1<>"")

ลองดูตามรูป

แถว C ก็ทำเหมือนกัน

แต่ไม่แน่ใจ ลองดูอาจารย์ก่อนครับ

Option Explicit

Function FolderExist(Path As String) As Boolean
On Error Resume Next
If Not Dir(Path, vbDirectory) = vbNullString Then
FolderExist = True
End If
On Error GoTo 0
End Function

Sub BUandSave2()

Dim MyDate
Dim MyTime
Dim TestStr As String
Dim Test1Str As String
Dim Newfolder As ...

Sub CheckBox1_Click()
If Range("setup_checkday") = True Then
Worksheets("Form").Range("dday").NumberFormat = ("dd/mm/bbbb")
Else
Worksheets("Form").Range("dday") = ""
End If
End Sub


คือผมต้องการให้ใส่ today() ด้วยนะครับ ให้มันออโต้เลย
ตอนนี้ใส่แบบล่างด้วย ก็ ok แต่ไม่แน่ใจจะผิดหลักอะไรหรือป่าว ...

ตามที่อาจารย์ได้แล้ว
ที่นี้ลองเปลี่ยนเป็น ไม่ได้ครับ

Sub CheckBox1_Click()
If Range("setup_checkday") = True Then
Worksheets("Form").Range("dday") = Text(TODAY(), "dd/mm/bbbb") <<<<<<<<< error ตรงนี้ครับ
Else
Worksheets("Form").Range("dday") = ""
End If
End Sub

คือผมต้องการ

กด checkbox แล้ว ให้เช็คค่า
ถ้า D1 = true ให้ A1 ใส่สูตร today()
ถ้า D2 = false ให้ A1 ลบทิ้งนะครับ คือต้องใส่วันแบบ manual เองครับ

ขอบคุณล่วงหน้าครับ

ครับ งั้นแบบติดกันแก้ขัดไปก่อน อิอิ

แบบแรกนี้ผ่านครับ โค้ดใช้ได้
Sub ShowAbout()
' Activate About sheet
Worksheets("About").Activate
ActiveSheet.ScrollArea = "A1:C39"
Range("b2").Select
End Sub

------------------
แบบสอง error ครับ คือผมอยาก multi range area

Sub ShowAbout()
' Activate About sheet
Worksheets("About").Activate ...

ถามเองตอบเอง
พึ่งงมได้แล้วครับ

excel ชกตาบอด

Page Setup > Sheet > กาช่อง Black and white

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

แต่ตอนพิมพ์ มันจะติดสีช่องระบายนะครับ ต้องแก้ไขอย่างไรไม่ให้ช่องที่ระบายมีสีติดมาด้วย

คือเอกสารผมเน้นแต่ขาวดำนะครับ ประหยัดหมึกพิมพ์

กำลังจะมาบอกพอดี ทำได้แล้ว
พอดีนั่งไล่หาในเว็บนี้ดู
ทำตามสูตรแบบนี้ละครับ

ขอโทษที่ทำให้เปลืองกระทู้ครับ

a1 = 16 (วันที่)
a2 = มกราคม
a3 = 2553

อยากรวมให้วันเดือนปี ครับ

ไม่ไช่แบบรวมข้อความนะ ผมลองทำแล้ว มันคำนวณไม่ได้นะครับ