Excel Forum

ขอสอบถามหน่อยครับว่า Excel สามารถดึงระยะทางจากจุดเริ่มต้น ถึงปลายทางแบบ Google Sheet ได้ไหมครับ
ตามเว็บนี้
https://www.labnol.org/google-maps-sheets-200817

รบกวนพี่ ๆ ทั้งหลายพอจะมีสูตรไหมครับว่าเซลล์ที่ถูกผสานนั้น เริ่มที่เซลล์ไหนจบที่เซลล์ไหน คำตอบอยู่ในไฟล์

ตรงกับความต้องการครับ ขอบคุณครับ

ขอรบกวนช่วยปรับ Code ให้หน่อยครับ
ความต้องการคือ อยากให้ Code ที่เป็น offset 0,xx เหลือแค่บรรทัดเดียวครับ
แบบว่าจากเดิมที่ต้องพิมพ์แต่ละตำแหน่งลงใน offset 0, xx
จะลดให้เหลือบรรทัดเดียวแบบที่เป็น จุดเริ่มต้น Cell ไปจนถึงจุดสิ้นสุดที่กำหนดไว้
จากของเดิมอย่างเช่นมี 8 Cell ที่จะดึงข้อมูลมาก็ต้องตรง r ...

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

ตัวแปร strSource คือกำหนด File path ของแต่ละไฟล์ครับ File Path & File Name เพื่อเปิดไฟล์
ที่ Cell A5 C:\Users\humno\OneDrive\เดสก์ท็อป\test\
ที่ Cell B5 Sheet1
แล้วเลือกชื่อชีท ตามคอลัมน์ C แล้วก็หาตำแหน่งตามคอลัมน์ D แล้วใช้ค่า Value ที่คอลัมน์ F ครับ
ตัวอย่างคำตอบอยู่ในไฟล์แล้วครับ

อันนี้คือ Code ที่ลองปรับดูครับ รบกวนช่วยเพิ่มเติมให้หน่อยครับ



Sub Test0()
Dim rAll As Range
Dim r As Range, strSource As String
With Sheets("Sheet1")
Set rAll = .Range("d2", .Range("d" & .Rows.Count).End(xlUp))
For Each r In rAll
strSource = r.Offset(0, -3) & r.Offset(0, -2)
Workbooks ...

ตอนนี้่ที่ทำได้ ทำได้แต่แบบเปลี่ยนทั้งหมดที่อยู่ใน Folder ครับ
อยากรบกวนให้ช่วยปรับ Code ที่ข้างต้นได้บอกไปก่อนหน้านี้ครับ


Sub Test()
Dim MyPath As String
Dim MyFile As String
Dim dirName As String
Dim wks As Worksheet

dirName = "C:\Users\humno\OneDrive\à´Ê¡ì·çÍ»\test\"

MyPath ...

มีคำถามเพิ่มเติมครับ ถ้าในทางกลับกัน
อยากจะเปลี่ยนค่าใดๆ ใน Cell ของไฟล์ test010.xlsx โดยใช้ตำแหน่ง File path ที่อยู่ในไฟล์ change.xlsm
ควรจะปรับ Code อย่างไรครับ โดยที่คอลัมน์ D ใช้ ค่าของคอลัมน์ F ส่วนคอลัมน์ E ใช้ค่าของคอลัมน์ G ครับ

Sub Test0()
Dim rAll As Range
Dim r As Range, strSource As ...

ลองตั้งค่าแบบนี้ดูครับ
File > Options > Trust Center > Trust Center Settings > Protected View > Uncheck all options
File > Options > Trust Center > Trust Center Settings > File Block Settings > Uncheck all options
หรือไม่ลองลง office version อื่นดูเป็นแค่ไฟล์เดียว หรือทั้งหมดครับ
ถ้ามี link จากข ...

ขอบคุณมากครับ ในส่วน Code ของอาจารย์นั้นสามารถใช้ได้ตรงตามความต้องการเลยครับ
สะดวกและเร็วมากๆ

ส่วนที่ 2
ผมลองได้หาแบบ VBA ดูครับลองใช้ดูก็พอใช้ได้แต่แบบว่าคำนวณได้ช้ามากๆเลยครับ
ถ้ามีการเปลี่ยนแปลงไม่ว่าจะลบแถว ลบ Sheet ใน workbook อันนี้มันจะทำการคำนวณตลอดและก็ช้ามากๆด้วยครับ
พอจะมีวิธีแก้ไข code ให้เร็วขึ้นบ้างไหมครับ

Function pull(xref As String) As Variant
'inspired by Bob Phillips ...

ส่วนที่ 1
ขอสอบถามหน่อยครับอยากจะดึงข้อมูลที่ตำแหน่งเซลล์ของแต่ละไฟล์โดยที่ไม่ต้องเปิดไฟล์ครับ
ตำแหน่งของ File path จะอยู่ที่คอลัม A , B , C ,D ,E ครับ ของไฟล์ Book2.xlsx
ส่วนข้อมูลจะอยู่ที่ไฟล์ test010 กับ test 011 ครับ
ตอนนี้ใช้สูตรแบบ INDIRECT อยู่แต่สูตรนี้ต้องเปิดไฟล์แล้วก็ copy วางตลอดไม่ง ...

ที่บรรทัดนี้เขียนชื่อ Sheeet1 เลยรันไม่ได้ครับลบ e ออกไป 1 ตัวก็สามารถใช้ได้แล้วครับ

อีกหนึ่งแบบครับ สามารถใช้ Text to Columns ได้
คลุมดำไว้ที่ B2:B3 ไปที่ Tab ribbon > Data > Text to Columns เลือก Fixed width > next > next เลือก Date
ที่ช่อง Destination เลือกตำแหน่ง C2 กด Finish

เกือบตรงกับความต้องการแล้วครับแต่ติดอยู่นิดนึงครับ
เมื่อกด Update แล้วเลขลำดับที่ sheet save มันรันต่อไปเลยอะครับจากที่ BEA-01 ลำดับเป็น 1 , 2 ,3
พอกด update มันรับต่อไปเป็น 7 8 9 เลยครับ พอจะมีวิธีไหนเว้นช่วงลำดับไม่ต้อง Update บ้างไหมครับ

รบกวนช่วยเพิ่มเติม Code หน่อยครับ
อยากให้เมื่อค้นหาที่ชีท in โดยอ้างอิงจาก Name Manager [Select]
แล้วเมื่อกด Update ให้ที่ชืท in Update ค่าทั้งหมดตั้งแต่ B:G โดยส่วนที่อ้างอิง Update
Name Manager [Send ] ครับ เพราะตอนนี้ทำได้แค่ Update ทีละตำแหน่ง




Sub FindAndPlaceValue()
Application ...

ตรงตามความต้องการครับ
ว่าแต่ -- คืออะไรหรอครับ

รบกวนสอบถามหน่อยครับ
อยากได้สูตรการตรวจสอบค่าซ้ำระหว่างไฟล์ 2 ไฟล์ครับโดยที่อีกไฟล์นึงปิดอยู่
เพราะว่า Countif ต้องเปิดทั้ง 2 ไฟล์คู่กัน ตัวอย่างคำตอบอยู่ในไฟล์ test1 ครับ

ตามที่อาจารย์ snasui บอกครับ Countif ต้องตรึงตำแหน่งเข้ามาช่วย
A2 =COUNTIF($B$2:B2,B2)
Copy ลงมาครับ