Note: The other languages of the website are Google-translated. Back to English

วิธี vlookup และส่งคืนสีพื้นหลังพร้อมกับค่าการค้นหาใน Excel

สมมติว่าคุณมีตารางตามภาพด้านล่างที่แสดง ตอนนี้คุณต้องการตรวจสอบว่าค่าที่ระบุอยู่ในคอลัมน์ A หรือไม่จากนั้นส่งคืนค่าที่เกี่ยวข้องพร้อมกับสีพื้นหลังในคอลัมน์ C จะบรรลุได้อย่างไร วิธีการในบทความสามารถช่วยคุณแก้ปัญหาได้

Vlookup และส่งคืนสีพื้นหลังพร้อมค่าการค้นหาโดยฟังก์ชันที่ผู้ใช้กำหนดเอง


Vlookup และส่งคืนสีพื้นหลังพร้อมค่าการค้นหาโดยฟังก์ชันที่ผู้ใช้กำหนดเอง

โปรดทำดังนี้เพื่อค้นหาค่าและส่งคืนค่าที่เกี่ยวข้องพร้อมกับสีพื้นหลังใน Excel

1. ในแผ่นงานมีค่าที่คุณต้องการ vlookup ให้คลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:

2. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างรหัส

รหัส VBA 1: Vlookup และส่งคืนสีพื้นหลังพร้อมค่าการค้นหา

Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Range(xDic.Keys(I)).Interior.Color = _
                Range(xDic.Items(I)).Interior.Color
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
End Sub

3 จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลแล้วคัดลอกโค้ด VBA 2 ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA 2: Vlookup และส่งคืนสีพื้นหลังพร้อมค่าการค้นหา

Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepColor = ""
        xDic.Add Application.Caller.Address, ""
    Else
        LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
    End If
End Function

4. หลังจากใส่รหัสทั้งสองแล้วคลิก เครื่องมือ > อ้างอิง. จากนั้นตรวจสอบไฟล์ รันไทม์ Microsoft Script กล่องใน เอกสารอ้างอิง - VBAProject กล่องโต้ตอบ ดูภาพหน้าจอ:

5 กด อื่น ๆ + Q ปุ่มเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างและกลับไปที่แผ่นงาน

6. เลือกเซลล์ว่างที่อยู่ติดกับค่าการค้นหาจากนั้นป้อนสูตร =LookupKeepColor(E2,$A$1:$C$8,3) ลงในแถบสูตรแล้วกดปุ่ม Enter

หมายเหตุ: ในสูตร E2 มีค่าที่คุณจะค้นหา $ ก $ 1: $ C $ 8 คือช่วงของตารางและตัวเลข 3 หมายความว่าค่าที่สอดคล้องกันที่คุณจะส่งคืนจะอยู่ในคอลัมน์ที่สามของตาราง โปรดเปลี่ยนตามที่คุณต้องการ

7. เลือกเซลล์ผลลัพธ์แรกจากนั้นลาก Fill Handle ลงเพื่อให้ได้ผลลัพธ์ทั้งหมดพร้อมกับสีพื้นหลัง ดูภาพหน้าจอ


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (32)
ได้รับคะแนน 5 จาก 5 · การจัดอันดับ 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจะเปลี่ยนรหัสนี้เพื่อแยกสีพื้นหลังออกจากชีตอื่นได้อย่างไร
ตัวอย่างเช่น ฉันต้องการใช้ VLOOKUP ในชีต 2 ซึ่งแยกข้อมูลและสีพื้นหลังออกจากชีต 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีคำถามเดียวกันนี้แน่นอน! คำแนะนำใด ๆ ที่จะได้รับการชื่นชมอย่างมาก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการ VLOOKUP บนแผ่นงาน 2 และดึงข้อมูลและสีพื้นหลังออกจากแผ่นงาน 1
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้การแก้ไขเล็กน้อยนี้ของรหัสที่โพสต์


xDic สาธารณะเป็นพจนานุกรมใหม่
strWB สาธารณะเป็นสตริง
strWS สาธารณะเป็นสตริง

ฟังก์ชัน Clookup (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป

strWB = LookupRng.Parent.Parent.Name '*** จำสมุดงานที่ข้อมูลและสีมาจากไหน
strWS = LookupRng.Parent.Name '*** จำเวิร์กชีตที่ข้อมูลและสีมาจากไหน

ตั้งค่า xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)

ถ้า xFindCell ไม่มีอะไรเลย
ดูอัพ = ""
xDic.Add Application.Caller.Address, ""
อื่น
CLookup = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).ที่อยู่

End If
ฟังก์ชั่นเอนด์

แผ่นงานย่อย_เปลี่ยน (เป้าหมาย ByVal เป็นช่วง)
หรี่ฉันนาน
Dim xKeys ตราบใดที่
Dim xDicStr เป็นสตริง
Dim rngLoc เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
xKeys = UBound(xDic.Keys)
ถ้า xKeys >= 0 แล้ว
สำหรับฉัน = 0 ถึง UBound(xDic.Keys)
xDicStr = xDic.รายการ(I)
ถ้า xDicStr <> "" แล้ว
Range(xDic.Keys(I)).Interior.Color = Application.Workbooks(strWB).Worksheets(strWS).Range(xDic.Items(I)).Interior.Color
อื่น
ช่วง(xDic.Keys(I)).Interior.Color = xlNone
End If
ต่อไป
ตั้งค่า xDic = Nothing
End If
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เป็นการแก้ไขข้อผิดพลาดในรหัสต้นฉบับหรือเพื่อให้ค้นหาจากแผ่นงานอื่น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
การเปลี่ยนแปลงรหัสดั้งเดิมนี้ทำให้คุณสามารถทำการ vlookup ด้วยสีจากแผ่นงานหนึ่งไปยังอีกแผ่นหนึ่งหรือจากสมุดงานหนึ่งไปยังอีกสมุดงานหนึ่ง แต่ต้องวางโค้ดนี้ในเวิร์กชีต TARGET แทนที่จะเป็นเวิร์กชีต SOURCE ตามที่อธิบายไว้ในโค้ดต้นฉบับ นั่นเป็นเพราะว่าโค้ดต้นฉบับใช้งานได้ในเวิร์กชีตเดียวเท่านั้น ดังนั้นจึงเป็นทั้งซอร์สและเป้าหมาย นี่ไม่ใช่การแก้ไขรหัสต้นฉบับ ฉันเพิ่งเพิ่มโค้ดเพื่อให้คุณสามารถดึงจากเวิร์กบุ๊ก/เวิร์กชีต (แหล่งที่มา) ใดๆ ลงในเวิร์กชีตของคุณ (เป้าหมาย) รหัสเดิมทำงานตามที่โปรแกรมเมอร์ตั้งใจไว้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีฉันทำตามขั้นตอน แต่ฉันไม่สามารถนำสีพื้นหลังในแผ่นงานใหม่ได้ ฉันสงสัยว่าถ้าฉันใส่คำสั่ง strWB และ strWS ในทางที่ถูกต้อง strWB = LookupRng.Reporte_Opcionales
strWS = LookupRng.Imprimir Reporte_Opcionales เป็นชื่อสมุดงานของฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันเชื่อว่าบรรทัดควรจะเป็นดังต่อไปนี้ (แน่นอน):

strWB = LookupRng.Parent.Parent.Name

strWS = LookupRng.Parent.Name


ฉันคิดเรื่องนี้ขึ้นมาเมื่อประมาณ 4 เดือนที่แล้ว ดังนั้นฉันจำไม่ได้แน่ชัดว่าฉันคิดอย่างไรกับสิ่งนี้ แต่คุณไม่ควรแทนที่รหัสนี้ด้วยสิ่งอื่นใด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ชื่ออะไรใน strWB ซ้ำ Parent.Parent ???? ถูกต้องหรือไม่
ขอบคุณล่วงหน้า.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
บ๊อบ ช่วยฉันด้วย โปรดตรวจสอบรหัส ฉันแน่ใจว่าคุณสามารถแก้ไขได้เพราะมันทำให้สีพื้นหลังจากชีตอื่น

โดยวิธีรหัสที่ทำงานในแผ่นงานเดียวกัน แต่ฉันต้องการนำข้อมูลจากแผ่นงานอื่น :(.

ขอบคุณล่วงหน้า
ทักทายจากมอนเตร์เรย์เม็กซิโก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันใช้งานได้ดี ขอบคุณ!
ได้รับคะแนน 5 จาก 5
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนี้ทำงานบนแผ่นงานเดียวกัน ฉันจะค้นหาสีจากแผ่นงานหนึ่งไปอีกแผ่นหนึ่งได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้การแก้ไขเล็กน้อยนี้ของรหัสที่โพสต์


xDic สาธารณะเป็นพจนานุกรมใหม่
strWB สาธารณะเป็นสตริง
strWS สาธารณะเป็นสตริง

ฟังก์ชัน Clookup (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป

strWB = LookupRng.Parent.Parent.Name '*** จำสมุดงานที่ข้อมูลและสีมาจากไหน
strWS = LookupRng.Parent.Name '*** จำเวิร์กชีตที่ข้อมูลและสีมาจากไหน

ตั้งค่า xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)

ถ้า xFindCell ไม่มีอะไรเลย
ดูอัพ = ""
xDic.Add Application.Caller.Address, ""
อื่น
CLookup = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).ที่อยู่

End If
ฟังก์ชั่นเอนด์

แผ่นงานย่อย_เปลี่ยน (เป้าหมาย ByVal เป็นช่วง)
หรี่ฉันนาน
Dim xKeys ตราบใดที่
Dim xDicStr เป็นสตริง
Dim rngLoc เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
xKeys = UBound(xDic.Keys)
ถ้า xKeys >= 0 แล้ว
สำหรับฉัน = 0 ถึง UBound(xDic.Keys)
xDicStr = xDic.รายการ(I)
ถ้า xDicStr <> "" แล้ว
Range(xDic.Keys(I)).Interior.Color = Application.Workbooks(strWB).Worksheets(strWS).Range(xDic.Items(I)).Interior.Color
อื่น
ช่วง(xDic.Keys(I)).Interior.Color = xlNone
End If
ต่อไป
ตั้งค่า xDic = Nothing
End If
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีบ๊อบ! อย่างไรก็ตาม โค้ดใช้งานได้ด้วยเหตุผลบางประการ มันจึงคัดลอกค่าจากชีต 2 ไปยังชีต 1 แต่คัดลอกการจัดรูปแบบเซลล์และปล่อยไว้ในชีต 2... มันยากที่จะอธิบาย แต่โดยพื้นฐานแล้วมันแยกการกระทำหนึ่งอย่าง (คัดลอกข้อความ + การสร้างการคัดลอก แล้ววางลงในเซลล์) ออกเป็นสองส่วน คุณรู้วิธีการทำทั้งสองอย่างในแผ่นเดียวหรือไม่? ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รหัสนี้ทำงานบนแผ่นงานเดียวกัน แต่ฉันจะค้นหาสีของเซลล์จากแผ่นงานหนึ่งไปยังอีกแผ่นงานใน excel ได้อย่างไร
ขอบคุณล่วงหน้า :)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้การแก้ไขเล็กน้อยนี้ของรหัสที่โพสต์


xDic สาธารณะเป็นพจนานุกรมใหม่
strWB สาธารณะเป็นสตริง
strWS สาธารณะเป็นสตริง

ฟังก์ชัน Clookup (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป

strWB = LookupRng.Parent.Parent.Name '*** จำสมุดงานที่ข้อมูลและสีมาจากไหน
strWS = LookupRng.Parent.Name '*** จำเวิร์กชีตที่ข้อมูลและสีมาจากไหน

ตั้งค่า xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)

ถ้า xFindCell ไม่มีอะไรเลย
ดูอัพ = ""
xDic.Add Application.Caller.Address, ""
อื่น
CLookup = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).ที่อยู่

End If
ฟังก์ชั่นเอนด์

แผ่นงานย่อย_เปลี่ยน (เป้าหมาย ByVal เป็นช่วง)
หรี่ฉันนาน
Dim xKeys ตราบใดที่
Dim xDicStr เป็นสตริง
Dim rngLoc เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
Application.ScreenUpdating = เท็จ
xKeys = UBound(xDic.Keys)
ถ้า xKeys >= 0 แล้ว
สำหรับฉัน = 0 ถึง UBound(xDic.Keys)
xDicStr = xDic.รายการ(I)
ถ้า xDicStr <> "" แล้ว
Range(xDic.Keys(I)).Interior.Color = Application.Workbooks(strWB).Worksheets(strWS).Range(xDic.Items(I)).Interior.Color
อื่น
ช่วง(xDic.Keys(I)).Interior.Color = xlNone
End If
ต่อไป
ตั้งค่า xDic = Nothing
End If
Application.ScreenUpdating = จริง
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมี windows สำหรับ Mac เมื่อไปถึงขั้นตอนที่ 4 - ไม่มีตัวเลือกสำหรับ Microsoft Scripting Runtime มีอะไรอีกบ้างที่ฉันควรเลือก
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อฉันเปิดหน้าต่าง View Code จะมีหน้าต่างขึ้นมาแต่ไม่ว่างเปล่า ฉันสามารถวางโค้ดใต้ข้อความที่มีอยู่แล้วหรือจะเปิด "หน้าว่าง" ใหม่ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังคืนค่า แต่ไม่ได้รับสี ใช้รหัสแผ่นต่อแผ่น ตามด้วยตัว T มีความคิดเห็นใดเกี่ยวกับสาเหตุที่ฉันไม่ได้รับสี
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีวิธีแก้ไขสิ่งนี้เพื่อใช้เป็น Hlookup หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีตอนบ่ายกับรหัสเหล่านี้ คุณสามารถเปลี่ยนแปลงได้นอกเหนือจากสี เรียกฉันว่ารูปแบบสีเดียวกันและแบบอักษรที่มีเซลล์

ขอขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ดีใน office 2010 แต่ไม่ใช่เวอร์ชัน 2013 มีการอัพเดทมาโครหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันสามารถใช้ vlookup กับเซลล์สีที่ไม่มีข้อมูลได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันได้รับสีของเซลล์ที่ต้องการ แต่ฉันต้องการค่าการค้นหาด้วยเนื่องจากมันคืนค่าจำนวนเต็มแทนที่จะเป็นสตริง
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้สิ่งนี้ใน Excel 2016 และมีเพียงข้อมูลเท่านั้นที่ถ่ายโอนจากแหล่งที่มาไปยังเป้าหมาย......สีจะไม่ถูกถ่ายโอน ความคิดเกี่ยวกับปัญหาที่อาจเกิดขึ้น: มันไม่เข้ากันกับ Excel 2016 หรือไม่ ขอบคุณ. MT
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันยอดเยี่ยมมาก! ทำตามขั้นตอนและใช้งานได้อย่างสวยงาม! ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีเร็กคอร์ดมากมาย ใช้เวลานานเกินไปในการประมวลผล และโค้ดยังคงทำงานต่อไปแม้หลังจากเสร็จสิ้น กรุณาช่วย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีครับ ผมมีชีต 10,948 แถวครับ ใช้เวลาในการดึงข้อมูลด้วยสีพอสมควรครับ ยังรออยู่ครับ นี่เป็นเรื่องปกติหรือมีอะไรผิดปกติ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้เวลาและวันที่จากรายงาน excel เพื่อสร้างไทม์ชีทสำหรับพนักงานของเรา หากวันที่ที่ระบุ เช่น 2020/08/11 ตรงกับวันที่ในอาร์เรย์แท็บถัดไป (ซึ่งมีหลายเซลล์ที่มีวันที่เดียวกันแต่เวลาต่างกัน) ฉันต้องการให้ดึงเฉพาะเซลล์ที่เติมด้วยสีส้มซึ่งจะระบุเป็น 2020/08/11 7:45. เป็นไปได้ไหม
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี รหัสนี้ใช้ได้กับ office 2016 และเวอร์ชันที่ใหม่กว่าหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่มันไม่กลับสี
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL