coppy ข้อมูลให้ค่าที่ออกมาตาม Format เดิม

[hutthaya]

คือที่หนูเขียนผลลัพธ์ออกมาได้จริงแต่จะทำยังไงค่ะให้ format ที่แสดงออกมาใน MPS COMPARE เป็นตัวอักษรใหญ่ตามข้อมูลที่ดึงมาใน sheet : month เลยค่ะ อยากให้ตัวอักษรออกมาตามรูปแบบตัวอักษรเดิมเลยคือตัวอักษรตัวใหญ่
เพราะหนูใช้เดือนที่แสดงออกมาใน MPS COMPARE ไปใช้เช็คข้อมูลการเปรียบเทียบหมดแล้วค่ะ เรียนผู้รู้ช่วยแนะนำด้วยน่ะค่ะ ขอบคุณค่ะ

Code: Select all

Public Sub pullmonth1()
Dim i As Integer, x As Integer
Dim month() As String
 Dim comparecommit() As Integer
Dim no_c As Single, no_d As Single, sum As Single, total As Single

    i = 1
     no_d = 0
    Do Until Worksheets("MONTH").Cells(i + 1, 1).Value = ""
        
        i = i + 1
        no_d = no_d + 1
        
    Loop
ReDim month(1 To no_d)

i = 1
    For i = 1 To no_d ' collection with array sheet : MPS COMPARE
       month(i) = Worksheets("MONTH").Cells(1 + i, 1).Value
     
Next i
i = 1
For i = 1 To no_d



ActiveWorkbook.Sheets("MPS COMPARE").Activate
        If Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = "" Then
            Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = Worksheets("MONTH").Cells(1 + i, 1).Value

 
               End If
                  
                          Next i
              
      
End Sub

comparemps.xlsm

[snasui]

ลบค่าใน C6:E6 ทิ้งไปก่อนแล้ว ปรับ Code ในส่วนที่บันทึกข้อมูลเป็นด้านล่างครับ

Code: Select all

If Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = "" Then
    Worksheets("MPS COMPARE").Cells(6, 2 + i).NumberFormat = "@"
    Worksheets("MPS COMPARE").Cells(6, 2 + i).Value = Worksheets("MONTH").Cells(1 + i, 1).Value
End If

[hutthaya]

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