Excel Forum

4ko6yon61

ต้องการ ผลลัพธ์ ตามภาพครับ

4ko6yon61

Screenshot_1.png

กรณีนี้เกิดขึ้นเพราะอะไรครับ

4ko6yon61

ลองเขียนได้ดังนี้ครับ แต่ติดปัญหาตรง ต้อง save ไฟล์ทุกครั้งก่อนสั่งปริ้น ซึ่ง save ไม่ได้ครับ ขอความกรุณาด้วยครับ
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters ...

4ko6yon61

มีไฟล์ข้อสอบ เป็นไฟล์ pdf 1 ไฟล์ ต้องการแทรกเลขประจำตัวผู้สอบ ชื่อผู้สอบ ลงในไฟล์และสั่งพิมพ์ พอจะเขียน VBA ได้ไหมครับ หรือมีวิธีพอจะแนะนำไหมครับ

4ko6yon61

ต้องการทำใบรายชื่อ เป็นจดหมายเวียน แยกตามโรงครับ โดยแต่ละใบก็มีชื่อนักเรียนตามโรงเรียนนั้น จะสามารถทำโดยวิธีใดได้บ้างครับ ลองทำ PivotTable ใน excel แล้วก็ยังต้องคลิก กรองทีละโรงอยู่ดี

4ko6yon61

สอบถาม function สร้างลำดับตัวเลขจาก ลำดับที่กำหนดครับ เช่น ต้องการสร้าง ลำดับจาก 1-2000 ก็ใส่ function ทีช่อง A1 แล้วสูตรจะสร้างสำดับให้เองจนถึง A2000 ประมาณนี้ "=สร้างลำดับ(1,2000)" โดยที่ไม่ต้องพิมพ์เลข 1 และ 2 แล้วลาก copy ครับ

4ko6yon61

แบบนี้ได้ไหมครับ

Code: Select all

=IF(HOUR(D2)<8,C2-1,C2)

4ko6yon61

Ctrl+H แทนที่ ช่องว่าง ด้วย เว้นวรรคครับ

4ko6yon61

จะกำหนดรูปแบบยังไงครับ ตอนนี้ได้แค่นี้ครับ

Code: Select all

#,##0;(#,##0);

4ko6yon61

ต้องการตรวจสอบเลขหลัก หมื่น ถ้ามีค่าเท่ากับ 2 ให้เติมสี cell แต่ต้องรันขึ้น error เพราะอะไรครับ
Sub test()
r = 2
Do While r < 500
If Mid(Cells(r, 1), Len(Cells(r, 1)) - 4, 1) = "" Then

ElseIf Mid(Cells(r, 1), Len(Cells(r, 1)) - 4, 1) = 2 Then
Sheets("Sheet1").Cells(r, 1).Interior.Color ...

4ko6yon61

คือ ต้องอ้างอิงเป็นช่วงครับ ไม่ได้ cell เดียว ตามตัวอย่าง ประมาณนี้ครับ

Code: Select all

Workbooks("2.xlsx").Sheets("Sheet1").Range(Cells(1, 1), Cells(4, 1)).Value = Workbooks("1.xlsx").Sheets("Sheet1").Range(Cells(1, 1), Cells(4, 1)).Value

4ko6yon61

ต้องการ copy ค่าจากอีก workbook นึงมาวางครับ
ทำไมอ้างอิงแบบนี้รัน code ได้
Workbooks("Score1.xslx").Sheets("Sheet1").Range("A1").Value = Workbooks("Score2.xslx").Sheets("Sheet1").Range("A1").Value

แต่อ้างอิงแบบนี้รันไม่ได้ครับ
Workbooks("Score1.xslx").Sheets("Sheet1").Range(Cells(1, 1), Cells(1 ...

4ko6yon61

ต้องการสร้าง workbook เพิ่มอีก 1 ไฟล์ครับ ที่รวม sheet ทั้ง 7 ชีท ที่ export ไปก่อนหน้า ตอนนี้ เขียนได้เเล้วครับ (07--all.xlsm)
แต่ติดปัญาหาตรงที่ แต่ละชีทใน 07--all.xlsm ใช้ปุ่ม macro ไม่ได้ครับ
Sub ExportSheetToNewWorkbook()

Dim xPath As String
Dim xWs As String
Dim xName(7) As String
xName(0 ...

4ko6yon61

ต้องการสร้างอีก workbook นึง ที่มี Sheet ทั้ง 7 ชีท ตาม วันต่างๆ ครับ เขียนได้แค่นี้ ครับ ลองใช้ ActiveWorkbook.Sheets.Add แต่ไม่ได้ผล ไม่รู้เขียนผิดหรือเปล่าครับ
Sub ExportSheetToNewWorkbook()

Dim xPath As String
Dim xWs As String
Dim xName As String

xPath = Application.ActiveWorkbook.Path ...

4ko6yon61

Code: Select all

Dim class As String
class = Sheets("Sheet1").Cells(10, "AB").Value
Sheets("Sheet2").Cells(4, "A").Value = "ระดับชั้นมัธยมศึกษาปีที่ " & class.Value

4ko6yon61

ต้องการดึงค่าจากโปรแกรม Bluetooth Serial Terminal มาใส่ excel ครับ ไม่ทราบว่าพอทำได้หรือไม่ครับ
ปล. โปรแกรม Bluetooth Serial Terminal จะแสดงผลค่าจาก senser อุณหภูมิ จาก บอร์ด อีกทีนึงครับ

ดึงค่าจาก วงกลมสีเหลืองครับ

4ko6yon61

หลังจากนั่งคิดอยู่พักใหญ่ ได้โค้ดประมาณนี้ครับ

Sub MeanCal()

Dim ArrayA As Variant
Dim ArrayC As Variant

ArrayA = Worksheets("Sheet1").Range("B1:I1").Value
ArrayC = ArrayA

Application.ScreenUpdating = False

If Sheets("Sheet1").Cells(2, 1).Value = "" Then
MsgBox "Please import data"
Else

For r ...

4ko6yon61

http://61.7.241.230/Cloud/Untitled.png

Sub MeanCal()
For r = 2 To 6
Sheets("Sheet1").Cells(r, "J").Value = Application.WorksheetFunction.SumProduct(Range("B1:I1"), Range(Cells(r, "B"), Cells(r, "I"))) / Cells(r, "A").Value
Next
End Sub

Sub SDCal()
For r = 2 To 6
Sheets("Sheet1").Cells(r, "K ...

4ko6yon61

ขอบคุณ คุณ EX2010 มากๆ เลยครับ

4ko6yon61

ตามรูปครับ

Excel Forum

EXCEL TOOLS

Search found 30 matches

ขอสูตร ค้นหาค่าในตาราง และส่งกลับชื่อหัวตารางหน่อยครับ

ปัญหาอักขระไม่ตรงกัน ทั้งที่เหมือนกัน เกิดเพราะเหตุใดครับ

Re: หากจะเขียน VBA ทำจดหมายเวียน ข้อมูลลงในไฟล์ pdf และสั่งปริ้น พอจะเป็นไปได้ไหมครับ

หากจะเขียน VBA ทำจดหมายเวียน ข้อมูลลงในไฟล์ pdf และสั่งปริ้น พอจะเป็นไปได้ไหมครับ

ต้องการทำจดหมายเวียนใบรายชื่อ แยกตามโรงเรียน

สอบถาม function สร้างลำดับตัวเลขจาก ลำดับที่กำหนด

Re: ขอสอบถาม การแบ่ง วันเวลา ใน Excel ครับ มีตัวอย่างครับ

Re: ต้องการสูตรในการเชื่อมคำโดยเอาพื้นที่ว่างมาด้วย

จัดรูปแบบตัวเลขทศนิยม 2 ตำแหน่ง ถ้าเป็นจำนวนเต็มไม่ต้องมีทศนิยม และถ้าเป็น 0 ให้เป็นช่องว่าง

run-time error 5 invalid procedure call or argument ไม่ทราบว่าเกิดขึ้นจากอะไรครับ

Re: VBA อ้างอิง Range ข้าม workbook

VBA อ้างอิง Range ข้าม workbook

Re: VBA เขียน export Workbook โดยสร้าง Worksheet หลายๆ sheet และกำหนดชื่อ ยังไงครับ

VBA เขียน export Workbook โดยสร้าง Worksheet หลายๆ sheet และกำหนดชื่อ ยังไงครับ

เอาตัวแปรมาวางต่อท้ายข้อความยังไงครับ

ขอความรู้การเขียน Macro ดึงค่าจากโปรแกรมภายนอกหน่อยครับ

Re: ดู Code VBA คำนวนหา Mean, S.D. ของข้อมูลแจกแจงความถี่ให้หน่อยครับ

ดู Code VBA คำนวนหา Mean, S.D. ของข้อมูลแจกแจงความถี่ให้หน่อยครับ

Re: ขอสูตร เรียงเลขลำดับอัตโนมัติเมื่อ กรอกรายการ หน่อยครับ (กรณีมีรายการย่อย)

ขอสูตร เรียงเลขลำดับอัตโนมัติเมื่อ กรอกรายการ หน่อยครับ (กรณีมีรายการย่อย)