Excel Forum

ขอบคุณครับ

เราสามารถพิมพ์ข้อความแล้วให้ข้อมูลที่ขึ้นมาเหมือน ajax มั้ยครับ (แบบยังพิมพ์ไม่จบข้อความ)
อย่างข้อมูลที่เราต้องการให้ขึ้นอยู่คนละ sheet กันครับ (คือมี sheet ไว้เก็บข้อมูลและ sheet ที่พิมพ์)

ทำได้แล้วครับ ขอบคุณที่ชี้แนะครับอาจารย์

ทำได้แล้วครับ ขอบคุณครับ

อาจารย์ครับ สอบถามเพิ่มเติม
ในกรณีที่อยากให้แสดง directory ของไฟล์
ขอคำแนะนำด้วยครับ

puriwutpokin wrote: Sun Mar 22, 2020 9:36 am เปลี่ยนตรงนี้ครับ

Code: Select all

sheetname = ThisWorkbook.Name

สามารถตัดชื่อไฟล์ออกได้มั้ยครับ
เช่นชื่อไฟล์ Exam - test.xlsm

เหลือแค่ test.xlsm

ผมเคยใช้แต่การดึงชื่อ sheet มาใช้ตาม code ด้านล่าง
อยากใส่ค่า A1 ให้กลายเป็นชื่อไฟล์แทนครับ

ได้แล้วครับ ขอบคุณครับ ผมเอามาแต่งความเรียบร้อยต่อ

Supachok wrote: Wed Dec 18, 2019 11:48 am D4
Data validation

=INDEX(OFFSET(ข้อมูล!B4,,,COUNTA(ข้อมูล!B4:B1000),),,)

ข้อมูลมันขึ้นเหมือนกับทำ dropdown แต่มัน search ไม่ได้ครับ

ตามไฟล์ตัวอย่างที่ผมแนบไว้

sheet ข้อมูล เป็นรายชื่อที่ต้องการเอาไว้ทำ dropdown ครับ

อยากทำ dropdown ให้มาโผล่ที่ D4 ลงไปเวลาเพิ่ม row ในแต่ละ sheet ชื่อเดือน ครับ
ให้ D4 เป็นช่องในการค้นหาเลย ได้มั้ยครับ

ดัดแปลงใช้งานเรียบร้อยครับ ขอบคุณครับอาจารย์

อาจารย์ครับ
Destination:=Range("b3:e7")
จะกำหนดให้เพิ่มลดตาม Row ของลำดับยังไงครับ

ผมต้องการให้ FillDown เริ่มต้นที่ B4
ตาม Row เริ่มต้นที่ A4

เพิ่มลด ตาม Row ครับ

ผมอยากทราบ Code ใน VBA ที่กดลูกศรแล้วให้เลือกระหว่าง รายรับกับรายจ่าย (ใน Column ประเภท) พอกดรายรับสีพื้นหลังจะเป็นสีฟ้า หรือพอกดรายจ่ายสีพื้นหลังจะเป็นสีชมพู

ขอบคุณมากๆครับ ผมจะเรียกให้ถูกขึ้นครับ แฮะๆ

อ๋อ ผมหมายถึงว่า ถ้ายกเลิก Mark ออก โปรแกรมจะไม่สามารถ Undo ได้น่ะครับ
ถึงใส่ให้มันไม่ Run แต่ Undo ได้ครับ

ก่อนใส่สูตรใน Sheet ยังปรับแก้ได้ครับ หลังใส่สูตร เซฟ->ปิด->เปิดใหม่ เลือกเซลล์ว่างพิมพ์อะไรลงไปไม่สามารถ Undo ได้ครับ
แต่ผมลองปรับสูตรเป็น

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("B65536").End(xlUp).Offset(-1, 0 ...

ติดเพิ่มครับ หลังจากผมปรับแก้ตาม

Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = Range("B65536").End(xlup).Offset(1,0).Address Then
With ActiveSheet.Calendar1
.Visible = True
.Top = ActiveCell.Offset(0, 0).Top
.Left = ActiveCell.Offset ...

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

สวัสดีครับทุกท่าน

ผมทำ Module เพิ่ม Row โดยมี Code ดังนี้ครับ
Sub Click()
Range("B65536").End(xlUp).Offset(0, 0).EntireRow.Select
Selection.Insert
Range("B65536").End(xlUp).Offset(-1, 0).Select
End Sub



และผมมี Code ใน Sheet ดังนี้ครับ
Sub Worksheet_SelectionChange(ByVal Target As Range ...

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