ผู้เขียน หัวข้อ: Code ระบบป้องกันการป้อนข้อมูลซ้ำกัน ใน VBA Excel  (อ่าน 60 ครั้ง)

administrator

  • Administrator
  • Hero Member
  • *****
  • กระทู้: 1466
    • ดูรายละเอียด


ตัวอย่างระบบการป้องกันการซ้ำซ้อน หรือการกรอกข้อมูลซ้ำกัน ในระบบ VBA
ุ้ถ้ามีข้อมูลที่ซ้ำกันใน Range ที่กำหนดประกาศไว้ จะขึ้นสีแดง

อ้างถึง
Sub check_dubplicate_formatConditions1()
    ' ระบบป้องกันการใส่ข้อมูลซ้ำกัน (ในเซลล์ที่กำหนดนี้ หากข้อมูลซ้ำกัน จะขึ้นสีแดง)
Set rng = Union(Range("d6,d8,d10,d12,d14,d16,d18,d20,d22,d24,d26,d28,d30,d32,d34,d36,d38,d40,d42,d44,d46,d48,d50,d52,d54,d56,d58,d60,d62,d64,d66,d68,d70,d72,d74,d76,d78,d80,d82,d84,d86,d88,d90" _
), Range("d92,d94,d96,d98,d100,d102,d104,d106,d108,d110,d112,d114,d116,d118,d120,d122,d124,d126,d128,d130,d132,d134,d136,d138,d140,d142,d144,d146,d148,d150,d152,d154,d156,d158,d160,d162,d164,d166,d168,d170,d172,d174,d176,d178,d180" _
), Range("d182,d184,d186,d188,d190,d192,d194,d196,d198,d200,d202,d204,d206,d208,d210,d212,d214,d216,d218,d220,d222,d224,d226,d228,d230,d232,d234,d236,d238,d240,d242,d244,d246,d248,d250,d252,d254,d256,d258,d260,d262,d264,d266,d268,d270" _
), Range("d272,d274,d276,d278,d280,d282,d284,d286,d288,d290,d292"))

Set uv = rng.FormatConditions.AddUniqueValues
uv.DupeUnique = xlDuplicate
uv.Interior.ColorIndex = 3
End Sub

โค๊ดนี้อยู่ในระบบของโปรแกรมจัดตารางสอน ที่จัดทำด้วยระบบ Excel โดย นายจรัญญ์ ตะวงษา
« แก้ไขครั้งสุดท้าย: 01/02/20 โดย administrator »