Excel Forum

ลองดูครับ ผมเขียนไม่ยังค่อยโอเค แต่น่าจะใช้ได้ Dim sh As Worksheet Dim rRange As Range Dim AllRange As Range Dim lngFirst As Long Dim lngLast As Long Dim lngCount As Long Set sh = Worksheets("Sheet1") Set AllRange = sh.Range("A5:A24") For Each rRange In AllRange If rRange = 3 The...

ตอนนี้ติดปัญหาอยู่ตรงไหนครับ ผมโหลดไฟล์มาแล้ว ค่อยๆถามกันไปครับ

สมมุติค่าอยู่ A1 น่ะครับ

ที่ B2 คีย์ =IF(RIGHT(A1*100,2)*1>10,A1,INT(A1))

ผมไม่เห็นไฟล์ตัวอย่าง ยังไงลองปรับเอาจากตัวอย่างโค๊ดนี้ดูครับ Public Sub CopyPaste() Dim wb1 As Workbook Dim wb2 As Workbook Dim strWbName As String Dim strShName As String Dim strPath As String Set wb1 = ThisWorkbook wb1.Sheets(1).Range("A2:A10").Copy strWbName = wb1.Sheets(1).Range("...

ไฟล์ใหญ่เกินไปน่ะครับ เปิดไม่ขึ้นเลย

ผมแนะนำให้ทำไฟล์ตัวอย่างมา หรือ แยกถามทีละขั้นตอนจะดีกว่า

เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ รบกวนหน่อยนะคะ พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ >< 1.ตรง Sheets(" Packing list_1 ").Select 2.ตรง Windows(" Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm ").Activate Sub Macro7() Range(&qu...

สูตรสามารถแสดงค่าได้เพียงแค่ค่าเดียวครับ กรณีเช่นนี้ ต้องใช vba ครับ

:D หัวข้อกระทู้มีประโยค "โดยไม่รบกวนเวลาของท่านอาจารย์" ไม่ทราบว่ามีความหมายอย่างไรครับ หากหมายถึงด้วยความเกรงใจผมที่ต้องสละเวลามาตอบนั้นให้ลบข้อความทิ้งไปได้เลย เพราะโดยปกติผมจะตอบเมื่อสะดวกอยู่แล้ว นอกจากนี้ผมไม่ได้ใช้เวลามากในการตอบกระทู้ครับ :mrgreen: :tt: ติดใจคำว่า "ใช้เวลาไม่ม...

janesit wrote:คุณ BANK9597 เอง ก็เก่งมาก ๆ นะคะ ช่วยตอบหลายครั้งแล้ว ซาบซึ้ง ซาบซึ้ง ค่ะ ^^

ขอบคุณครับ

ปรับฟอร์แมตเซลล์เป็น Accounting ครับ

ทำไมไม่เปลี่ยนสูตร หรือ โค๊ด ให้ทำงานกับจำนวนข้อมูลที่มีอยู่จริงล่ะครับ แบบนั้นจะง่ายกว่าเราไปลบจำนวน Low ครับ

เท่าที่ผมทราบ ไม่รู้ผิดหรือถูก จำนวน Low จะคงที่เสมอ เมื่อเราลบ มันจะเพิ่มขึ้นมาใหม่อัตโนมัติ ข้อนี้ผมให้ท่านผู้รู้ให้คำตอบแล้วกันครับ

ทีนี้ก็อธิบายครับว่า ในไฟล์ที่แนบมานั้น มีส่วนไหนเป็นฐษนข้อมูล ส่วนไหนเป็นฟอร์ม ระบุชื่อชีทให้ชัดเจน พร้อมโค๊ดที่เขียนมาแล้วยังติดปัญหาอยู่นั้น คือโค๊ดใด

เป็นตัว สั่งให้กรอกข้อมูล ลงฟอร์มในเวปครับ

ผมลองทดสอบโคีดดูแล้ว เป็นการดึงเอา URL มาลงในชีทครับ ก็เลยงงเหมือนกัน

ไม่ทราบว่าเราจะรู้ได้อย่างไร ว่าข้อไหนถูกได้ 2.5 ข้อไหนผิดได้ 0

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

:D ลองปรับสูตรตามนี้ครับ ที่ G4 คีย์ =SUMPRODUCT(--(TEXT(G$3,"YYYYMM")*1>=TEXT($D4,"YYYYMM")*1),--(TEXT(G$3,"YYYYMM")*1<=TEXT(DATE(YEAR($D4),MONTH($D4)+$F4-1,1),"YYYYMM")*1),IF($E4>10500000,ROUNDUP(($E4/$F4),-3)+ROUNDUP((($E4-(($E4/$F4)*MAX(0,(COUNT($G$3:G$3)-...

ถ้าแสดงในรูปแบบคิวรี่ ไม่สามารถจัดกึ่งกลางได้ครับ

ลองตามนี้ครับ ที่ J2 คีย์ =IF(B2="","",MAX(0,IF(SUMIF($A$2:A2,A2,$I$2:I2)>B2,B2-(SUMIF($A$2:A2,A2,$I$2:I2)-I2),SUMIF($A$2:A2,A2,$I$2:I2)))) คัดลอกลงมา

:) ลองปรับโค๊ดเป็น Public Sub CopyAndPaste() Dim FormWs As Worksheet Dim DataWs As Worksheet Dim lngLastRow As Long Set FormWs = Sheets("Edit") Set DataWs = Sheets("AllData") lngLastRow = FormWs.Range("I" & Rows.Count).End(xlUp).Row FormWs.Range("H3:L" &am...

ผมไม่เห็นโค๊ดที่เขียนไว้ครับ

ต้องเขียนมาเองก่อนครับ ในเบื้องต้น

hybyrd wrote:ขอบพระคุณท่าน bank9597 เป็นอย่างมากขอให้มีความสุขความเจริญ ในทุกๆด้าน
สวัสดีปีใหม่ด้วยครับผม

สวัสดีปีใหม่เช่นกันครับ