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
' lngStart = r.End ...

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, "", "0")
' r.Value = Replace(r, "N.A.", "")
Next 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 หรือ Col B ที่อาจมีข้อมูลเพิ่มเติมในอนาคต ต ...

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 ...