Excel Forum

เรียน อาจารย์ ครับ
ขอรบกวนอีกครั้งอยากสอบถามอาจารย์ว่าถ้าเราต้องการ Insert และ Update ข้อมูลที่มีจำนวน Record เป็นแสนรายการ จะทำให้Run ข้อมูลช้ามาก จะรบกวนอาจารย์ว่ามีวิธีอย่างไหมครับ โดยใช้การ query จาก access ขอบพระคุณล่วงหน้าครับ

ได้แล้วครับขอบคุณอาจารย์ครับ

ขออภัยครับพิมพ์ผิดครับ
"คือผมสร้างฟังก์ชันInsert Into และUpdate โดยให้ข้อมูล tblModel ไป Update และเพิ่มใน tblPrice ตามตัวอย่างแนบพอสร้างเร็จแล้วRUN ดูทำงานถูกต้องครับแต่พอปิดและเปิดใหม่RUN อีกครั้งกลับไม่ทำงานรบกวนอาจารย์ด้วยครับ
ขอบคุณครับ"

เรียนอาจารย์ ครับ
รบกวนสอบถามครับคือผมสร้างฟังก์ชันInsert Into และUpdate โดยให้ข้อมูล tblModel ไป Update และเพิ่มใน tblPrice ตามตวอย่างแนบพอสร้างเร็จแล้วRUN ดูทำงานถูกต้องครับแต่พอปิดและปิดใหม่RUN อีกครั้งกลับไม่ทำงานรบกวนอาจารย์ด้วยครับ
ขอบคุณครับ

ขอบคุณครับอาจารย์ ถ้าติดอะไรจะสอบถามเพิ่มเติมนะครับ

เรียน อาจารย์ ครับ
มีเรื่องขอความสอบถาม 2 เรื่องครับ
1. ถ้าผมต้องการ Import ข้อมูลเข้าตารางชื่อ DataCar โดยให้เช็คว่าข้อมูลซ้ำหรือไม่ถ้าซ้ำก็ให้ทำการ Uadate แทนข้อมูลนั้น (ผมตั้งคีย์หลักชื่อเลขที่สัญญาครับ)
2. ถ้า queries ที่ชื่อ InputDatacar ผมต้องการสร้างเงื่อนไข Filed [Price_Need] โดยกำหนดว่าถ้า ...

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

เรียนอาจารย์ ครับรบกวนขอสอบถามว่ากำหนดเงื่อนไขใน Query ตารางtabletase map กับ tabletase2 โดยให้แสดงข้อมูล tabletase ทุกบรรทัด ไม่ว่าจะ Map กับ tabletase2 พบไม่พบก็ตามต้องสร้างเงื่อนไขอย่างไรครับ ขอบคุณครับ ตัวอย่างตามแนบครับ

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

เรียน อาจารย์ครับ
รบกวนสอบถามหากจะกำหนนดเงื่อไข IF เพื่อให้แสดงค่า

ถ้า Actual >= 100% ให้แสดง 130% ที่ Achievement
ถ้า Aactual/Target ได้ >= 100.75% ให้แสดง 110% ที่ Achievement
ถ้า Aactual/Target ได้ >= 101.50% ให้แสดง 115% ที่ Achievement
ถ้า Aactual/Target ได้ >= 102.25% ให้แสดง 122.50% ท ...

ขอบคุณมากครับอาจารย์

ใน File แนบครับ

รบกวนอาจารย์ขอสูตรใส่สีในเซลล์
เมื่อเซลล์นั้นมีค่า 0-70 ให้ใส่ สีแดง และให้โชว์สัญลักษณ์อะไรก็ได้ครับ
เมื่อเซลล์นั้นมีค่า 71-80 ให้ใส่ สีเหลือง และให้โชว์สัญลักษณ์อะไรก็ได้ครับ
เมื่อเซลล์นั้นมีค่า 81 - ขึ้นไป ให้ใส่ สีเขียว และให้โชว์สัญลักษณ์อะไรก็ได้ครับ

ขอบคุณครับ

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

ต้องเรียนว่า VBA ไม่ได้เลยครับอาจารย์ ก็ก็ลองไปหา code ของอาจารย์มาศึกษาดู

Sub NewArrange()
Dim r As Range, c As Range
Dim iCount As Integer
Dim wsh As Worksheet
Set wsh = ActiveSheet
wsh.Range("A:A").ClearContents
Set r = wsh.UsedRange
For Each c In r
If c <> "" Then
iCount = iCount + 1 ...

ขอบคุณครับอาจารย์ แต่ตาราง 1 ยังไม่เลียงลำดับครับ มันเลียงตาม2,3,1,5,4,7,6 ตามลำดับ (ผมแนบ File ให้ดูไม่ได้ครับ) รบกวนอาจารย์ด้วยครับ

ให้เท่ากันครบอาจารย์

ตาราง1 ขอความอนุเคราะห์ผู้รู้ คืออยากได้สูตร ตาราง1 ให้Column C จัดลำดับอัตโนมัติถ้าAchievement(คะแนน)เปลี่ยน ถ้าสูงได้เป็นอันดับ 1 โดยเลียง Achievement มาก ไปหาน้อย
-ถ้าจะให้เด่นให้ใส่สีเด่น ๆ หรือสัญลักณ์ เด่น ๆให้เตือนสำหรับคนที่ อยู่ 3 ลำดับท้าย :D


ตาราง2 อยากให้Column C จัดลำดับอัตโนมัติถ ...