Excel Forum

ข้อมูลมีจำนวนมาก ต้องการดึงโดยอัตโนมัติ บันทึกเรียงต่อกับไปในแนว column ทุก 30 นาทีครับ

Data.xls มีการ update ทุก 30 นาที (ไฟล์นี้มีแล้ว)
มีความต้องการให้ Link Data.xls นำข้อมูลจาก Data.xls มาบันทึกเรียงต่อกันไปทุก 30 นาที
ขอความกรุณาจากอาจารย์ด้วยครับ

ขอบคุณที่เป็นแรงบันดาลให้เรียนรู้ โค้ดข้างล่างให้งานได้แล้วครับ แต่อยากขอคำแนะนำเพิ่มเติม เรื่องการเขียน ต้องตั้งตัวแปร หรือแก้ไขอย่างไรให้กระชับ เหมาะสมกว่านี้ครับ Final : Auto Save AS every 30 minutes with NO warning upon saving over the last copy. __________ ThisWorkBook Private Sub Workbook_Befo...

ตัวอย่าง

เนื่องจากต้องการข้อมูลที่บันทึกทุกๆ 30 นาทีมาประมวลผล จึงไม่สามารถใช้คำสั่ง autosave/recovery ปกติได้ ไฟล์ทดสอบตามเอกสารแนบ ความต้องการเพิ่มเติมคือ 1. Autosave every 30 minute โดยไม่ต้องกด Ctrl+Q 2. Start 10.00am Finish 05.00pm ขอบคุณครับ Public Const backupfolder As String = "C:\excelbackup\&q...

Public Const backupfolder As String = "C:\excelbackup\" Sub Auto_Save() If Dir(backupfolder, vbDirectory) = "" Then ' This will check if folder already exist ' If not then it will create new directory at first time MkDir backupfolder Call Save ' Save copy of Excel file to backup...

(code) Public Const backupfolder As String = "C:\excelbackup\" Sub Auto_Save() If Dir(backupfolder, vbDirectory) = "" Then ' This will check if folder already exist ' If not then it will create new directory at first time MkDir backupfolder Call Save ' Save copy of Excel file to ...

ระหว่างเวลาทำงานแต่ละวัน ต้องการ auto save excel file ตามตัวอย่างที่ลิงค์ โดยไม่รบกวนผู้ใช้งาน ชื่อไฟล์เป็น วัน-เวลา และกำหนดให้ autocave เวลา 10.00am-05.00pm ต้องแก้ไขอย่างไรบ้างครับ http://www.tarwara.info/blog/automatic-backup-copy-of-a-workbook-in-excel-2007-2010/ http://www.mrexcel.com/forum/ex...

ตัวอักษรที่ใกล้เคียงกัน ยังเลือกไม่ถูกต้อง ตามไฟล์ตัวอย่างแนบครับ อาจารย์

แนบตัวอย่าง Link Sheet ตามไฟล์แนบครับ

Sheet 2 cell C10 input อักษร หรือ ตัวเลข, D10 เปรียบเทียบ C10 กับข้อมูลใน Sheet 1 range (A2:A1000) เงื่อนไข 1. เปรียบเทียบโดย ไม่สนใจว่า เป็นตัวพิมพ์ใหญ่ หรือ เล็ก 2. Sheeet 2 D10=Sheet 1 Ax ให้แสดงค่า รวมถึงค่าอื่นๆของ Ax ใน Row เดียวกันอีก 10 cell 3. ถ้าไม่ตรงกับค่าใดๆ ให้มีค่าเป็น 0 ขอขอบคุณมากคร...

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

P1649 wrote:227 เป็นการกำหนดอะไร และคำนวนอย่างไรครับ เมื่อเปลี่ยน range แล้วทำให้ค่าเปลี่ยนแปลงครับ

ข้อมูลที่ผมใช้งานมีจำนวน row = 7000 ครับ

227 เป็นการกำหนดอะไร และคำนวนอย่างไรครับ เมื่อเปลี่ยน range แล้วทำให้ค่าเปลี่ยนแปลงครับ

ตามตัวอย่างแนบ หาก cell ถัดมาเป็นตัวเลข ให้เรียงข้อมูลได้ตามคำสั่ง =INDEX($B$2:$B$28,8*(ROWS(D$2:D2)-1)+COLUMNS($D2:D2)) 1 แต่หาก cell ถัดมาเป็น Text ให้ตัดทิ้ง จนกระทั่งพบ cell ที่เป็นตัวเลข จึงเรียงลำดับ Text ก่อนหน้าและ ตัวเลขตามลำดับ หรือ 2 cell ที่เป็น text ติดกันขึ้นบรรทัดใหม่ และเรียงต่อไปเมื...

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

ต้องการแยกเฉพาะตัวเลข ลงในแต่ละเซล
A1 เป็นตัวเลข หรือ text ของเบอร์โทรศัพท์ 0814242525 หรือ 08-1424-1869 หรือ 081-424-2525
ต้องการแสดงผลดังนี้
B1=SUM(C1:L1)
C1=0
D1=8
E1=1
F1=4
G1=2
H1=4
I1=2
J1=5
K1=2
L1=5

ขอนำไปใช้งานก่อน แล้วจะกลับมาตอบปัญหากับอาจารย์
ขอบคุณครับ

A1 คือผลจากการคำนวน
B1 if A1 = 11, 14, 16, 19, 22, 41, 88 (ไม่มีความสัมพันธ์ทางคณิตศาสตร์)
ถ้า ใช่ ให้ B1 = G
ถ้า ไม่ใช่ B1 = X

ต้องเขียนเงื่อนไข if อย่างไรครับ

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