Excel Forum

มี function ไหนที่สามารถค้นหา symbol ~(grave accent) ข้อมูล
โดยผมลองใช้ function
=search("~",A1,1) คำตอบที่ได้เป็นเลข 1 ทุกตัวเลยครับ

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

แต่เมือลอง copy สูตรของอาจารย์ไปวาง B2
==IFERROR(INDEX('Source Data'!$A$2:$A$35,SMALL(IF(ISNUMBER(SEARCH(A2,'Source Data'!$B$2:$B$35)),ROW('Source Data'!$B$2: $$35 )-ROW('Source Data'!$B$2)+1),COUNTIF(A$2:A2,A2))),"")


$$35 แก้ไขล๊อก cell เป็น $B$35

ได้แล้วครับ

ดังเอกสารแนบครับ

1.ถ้าเกิดมี key word ที่ซ้ำกัน และ มี refference code เป็นคนละ recode
2. "Source Data" range A11:B13 มี key word ที่ซ้ำกัน
3.ให้ refferce code เป็น 1:1 code ต้องทำอย่างไรครับ
4.รบกวนผู้รู้ด้วยครับ

ตามเอกสารแนบครับ

+ต้องการ search key word ให้ให้แสดงค่า refference code+
1. ต้องการ search key word ใน column A (tab sheet ""search")
2.โดยให้ key word เข้าไป search ใน column B (tab sheet ""Source Data")
3.B2 ต้องการให้คื่นค่า refference code (tab sheet ""search")


Key word Value
10A4216X012 =MATCH(A2 ...

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

cnt = .Cells(.rows.Count, "A:A").End(xlDown).Row

ติด Complies Error ที่บรรรทัดนี้ครับ
รบกวนผู้รู้แนะนำหน่อยครับ

Sub RenameFile()


Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.Worksheets(“List”)
Dim NowPath As String, OldName As String, NewName As String
Dim Row As Long, cnt As String

NowPath = wb.Path
ws.Select
cnt = .Cells(.rows.Count, "A:A").End(xlDown).Row
For Row = 2 To ...

ยังคง error Show - > Complies error


รบกวนแนะนำด้วยครับ
ขอบคุณครับ

Sub RenameFile()


Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.Worksheets(“List”)
Dim NowPath As String, OldName As String, NewName As String
Dim Row As Long

NowPath = wb.Path
ws.Select
cnt = .Cells(.Rows.Count, "A:A").End(xlDown).Row
For Row = 2 To cnt + 1
OldName ...

Sub RenameFile()


Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.Worksheets(“List”)
Dim NowPath As String, OldName As String, NewName As String
Dim Row As Long

NowPath = wb.Path
ws.Select

For Row = 2 To cnt + 1
OldName = NowPath & “ \ ” & Cells(Row, 2)
If Cells(Row, 2 ...

โพสต์แล้ว: 20 พ.ย. 2012 09:42








:ต้องการ rename file in folder:
1.Column A = now paht file in folder
2.Column B = old name
3.Column C = new name
4.ต้องการ rename file จาก old name เป็น new name โดยยังคง property เดิม, เช่น .pdf, .xlxs, .pptx

:ต้องการ rename file in folder:
1.Column A = now paht file in folder
2.Column B = old name
3.Column C = new name
4.ต้องการ rename file จาก old name เป็น new name โดยยังคง property เดิม, เช่น .pdf, .xlxs, .pptx

As script Code

Sub RenameFile()


Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As ...

ขอบคุณมากๆ ครับ

Sub insert_Sybol_฿()
SET XX As Long
SET B As Long

K = Left(XX, 30) 'constant very first 30 character(Begin)
For B = 31 To Len(XX) 'Step +30 char (Next insett)
XX = XX & ChrW(00A3) & Mid(XX, K, 30) 'ยังไม่ทราบ Char no. ฿ (ขอกำหนดให้ใส่ symbol £ euro = Char code 00A3 ก่อน)
Next K
End

End sub


ม ...

ดังเอกสารแนบครับ

ต้องขออภัยด้วยครับ อ่านคำถามของตัวเองยังงง

ขอตั้งคำถามใหม่ตามข้างล่างนี้

"Re: Insert Symbol (Separate between data)"
1.เช็คข้อความตาม column B:B
2.ให้ใส่ Symbol ฿, ในข้อความตาม column B:B (โดยให้การใส่
3.โดยให้การใส่ในข้อ(2) มีเงื่อนไขว่าทุกๆ 30 Character, Symbol ฿ เป็นตัวที่ 31, 61, 91
4.มีวิธ ...

"Insert Symbol (Separate between data)"
1.เช็คข้อความตาม column B:B
2.ตัดตัวอักษรทุกๆ 30 ตัว
3.ให้ใส่จำนวนนับใน line in column F
4.ให้ตัวอักษรตัวที่ 31, 61, 91 เป็นอีก 1 แถว
5.ส่วนชุดตัวอักษรใดก็ตาม ที่เป็นเศษของ 30 ก็ให้ใส่ข้อความนั้นทั้งหมด
6.มีวิธีการตัดคำที่อยู่ใน Active cell เดียวได้หรือเปล่าคร ...

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