Excel Forum

เซล a1 คือ 'aa-bb เช่น '25-5
เซล b1 แสดงผลการคำนวนของ aa-bb เท่ากับ 20
ทำได้อย่างไรครับ

ต้องการผลบวกของ 1 คอลัมน์และเว้น 1 คอลัมน์ ตามตัวอย่างของ Cell B7 and C7 ได้อย่างไรครับ

1. ต้องการเปลี่ยนเฉพาะนามสกุลของไฟล์ทั้งหมดในโฟลเดอร์ ให้เป็น xxx.LIB
2. ไฟล์ทั้งหมดอยู่ในชื่อโฟลเดอร์ D:/LTspice/NIC
3. นามสกุลเดิมมีหลายรูปแบบ ตัวอย่าง xxx.txt, xxx.inc, xxx.INC, xxx.lib

ใช้งานตามต้องการได้แล้ว ขอบคุณมากครับ

เพิ่มเติม - sheet 2 ผมใช้ DATA/From Text เป็นการ import ข้อมูลครับ

ต้องการดึงข้อมูลจาก text file เพียง 1 บรรทัด มาแสดงใน excel file เพียง 1 column โดยมีเงื่อนไขว่า ข้อมูลบรรทัดนั้นต้องขึ้นต้นด้วย .SUBCKT tetrode.txt --text file ไม่สามารถส่งเป็น attachment ได้จึงขอแสดงมา ดังนี้ แต่ไฟล์ผลลัพท์แสดงตัวอย่างตามที่แนบมาครับ *----------------------------------------------...

=Formulatext(A1) ใช้งานได้ดีมาก ขอบคุณมากครับ

ต้องการนำตัวเลขมาแสดง วิธีการคำนวน ตามตัวอย่าง ต้องเขียนคำสั่งใน D2 และ D3 อย่างไรครับ

ยอมให้ผลลัพท์ออกมาเป็น ศูนย์ แทนติด error ใช้งานต่อไปได้ครับ

Sub EPS_8() Dim rAll As Range, r As Range Dim lngStart As Long, lngEnd As Long Dim rData As Range, rd As Range Dim amt As Double Dim a, b As Double With Sheets("Sheet8") Set rAll = .Range("a3", .Range("a" & Rows.Count).End(xlUp)) rAll.Select For Each r In rAll ' ln...

Sub Delete_SP() Dim rAll As Range, r As Range With Sheets("Sheet14") Set rAll = .Range("k1", _ .Range("k" & Rows.Count).End(xlUp)) rAll.Select End With For Each r In rAll r.Select ' r.Value = Replace(r, " ", "") r.Value = Replace(r, ""...

Error ที่แสดงน่าแทนค่าด้วย 0 ผมพยายามลอง iserror แล้วก็ยุ่งไปกันใหญ่
ขอรบกวนอาจารย์ ช่วยแนะนำด้วยครับ

ใช้ได้ครับ จะพยายามแกะและทำความเข้าใจให้ทำงานร่วมกับ sheet อื่นๆได้ด้วย ขอบคุณมากครับ

เบื้องต้นมีความต้องการ VBA เป็นดังนี้ครับ
1. ข้อมูลมีทั้งหมด 600 แถว
2. นำข้อมูลแต่ละแถว เว้นตัวแรกและตัวสุดท้ายมารวมกันแล้วหารด้วยจำนวนข้อมูล ผลลัพท์ แสดงที่ 2 ช่องถัดไป ตัวอย่าง
3. แถวที่ 3 (25.68+33.32+36.36)/3
4. แถวที่ 4 (41.00+7.67+81.99+31.8)/4

การเขียน VBA นี้ติดขัดตรง เงื่อนไขให้ เว้นข้อมูลแต่ละชีตในแถวสุดท้าย ไม่นำมาคำนวน และทดสอบได้ด้วยการแทนค่า จะได้คำตอบ คือ 12.70 และ 8.89 1. นับจำนวน column 2. นับจำนวน row 3. เริ่มทำงานตั้งแต่แถวที่ 3 ถึง 650 4. เขียนเงื่อนไขอย่างไรให้เฉพาะที่ลงสี ในแต่ละ row 5 6. a = sheets(12).cells(3,11) = 11.50 ...

เริ่มเขียนโครงไว้ แต่ยังให้งานไม่ได้ เพราะการประกาศและรูปแบบ ยังไม่ถูกต้อง ขอรบกวนช่วยกัน แก้ไขให้ใช้งานได้ด้วยครับ

ตรงตามที่ต้องการ ขอบคุณมากครับ

Sub Delete_SP() 'For Each r In ActiveSheet.UsedRange X = Workbooks("final.xlsm").Worksheets("Sheet7").Columns("B") X.UsedRange For Each r In X If r.Row > 1 Then r.Value = Replace(r, " ", "") Next r End Sub หากต้องการลบช่องว่างเฉพาะในเซล B2:B700 หรือ...

snasui wrote: ตัวอย่าง Code การลบ Space ออกจากข้อความตามด้านล่างครับ

Code: Select all

Sub test()
    For Each r In ActiveSheet.UsedRange
        If r.Row > 1 Then r.Value = Replace(r, " ", "")
    Next r
End Sub

ใช้งานได้ดี ขอบคุณมากครับ

ตามที่แนะนำ ไม่ตรงความต้องการ คือ ต้องการใช้ VBA ลบช่องว่าง เช่น
I Love You ให้อยู่ในรูป ILoveYou

ต้องการลบช่องว่างแต่ละเซล ใน Col D อาจารย์ช่วยแนะนำด้วยครับ Sub Delete_Sp() Dim i As Long Dim j As Long Dim a As String i = 1 'start on first row Application.ScreenUpdating = False Do While i <= ActiveSheet.UsedRange.Rows.Count For j = i + 1 To ActiveSheet.UsedRange.Rows.Count 'Cells(j, 4) = "=...