ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤@­Ó ComboBox ªº°ÝÃD

¤@­Ó ComboBox ªº°ÝÃD

ªþ¥ó¤¤¦³¤­­Ó ComboBox ¤À§O±±¨îµÛAÄæ¦ì©MFÄæ¦ìªº­È¡A§Ú·Q­n¦b¥ô¦ó¤@­Ó ComboBox ¥u¦³³Q¿ï¾Ü¬°bb®É¡A¥¦¹ïÀ³ªºFÄæ¦ìÀx¦s®æÅã¥ÜªÅ¥Õ¡A¦Ó¨ä¥Lªº©Ò¦³ªºÀx¦s®æ¬Ò¤£ÅÜ¡A¸Ó¦p¦ó°µ?

¬¡­¶Ã¯1.rar (24.91 KB)

Jess

§Ú¨S¦³Åv­­¤U¸ü¡A³o¼Ë¸Õ¸Õ¬Ý@@
Private Sub ComboBox1_Change()
If ComboBox1.Text = "bb" Then
Sheets("sheet1").Cells(1, 1) = "" '³]©w§ACombobox­n¹ïÀ³ªºÀx¦s®æ¡A³]©w¬°ªÅ­È
End If

TOP

  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. ComboBox1.List = Array("aa", "bb", "cc", "dd", "ee")
  3. ComboBox2.List = Array("aa", "bb", "cc", "dd", "ee")
  4. ComboBox3.List = Array("aa", "bb", "cc", "dd", "ee")
  5. ComboBox4.List = Array("aa", "bb", "cc", "dd", "ee")
  6. ComboBox5.List = Array("aa", "bb", "cc", "dd", "ee")

  7. A = ComboBox1.Value
  8. B = ComboBox2.Value
  9. C = ComboBox3.Value
  10. D = ComboBox4.Value
  11. E = ComboBox5.Value

  12. [A1].Value = A
  13. [A3].Value = B
  14. [A5].Value = C
  15. [A7].Value = D
  16. [A9].Value = E

  17. With Sheets("¤u§@ªí1")
  18. Dim MyDate, MyWeekDay
  19. MyDate = Now
  20. MyWeekDay = Weekday(MyDate)

  21.     If MyWeekDay > 3 Then
  22.     ContainerDay = Format(Date + 4 - Weekday(Date, 2) + 7, "e.m.d")
  23.     Else
  24.     ContainerDay = Format(Date + 4 - Weekday(Date, 2), "e.m.d")
  25.     End If


  26. .[F1,F3,F5,F7,F9] = ContainerDay
  27. End With
  28. End Sub
½Æ»s¥N½X
¦^´_ 2# bsy4life

¥¼©R¦W-1.jpg (115 KB)

¥¼©R¦W-1.jpg

Jess

TOP

¦^´_ 3# jesscc
¸Õ¸Õ¬Ý¡G


ABC.rar (21.7 KB)

TOP

¥»©«³Ì«á¥Ñ jesscc ©ó 2016-6-16 08:47 ½s¿è

¦^´_ 4# c_c_lai


§Úªº·N«ä¬O¥ô¦ó¤@­Ó ComboBox ªº­È³Q¿ï¬° bb ®É¡A¥u¦³¹ïÀ³ªºFÄæ¦ìÀx¦s®æÅܦ¨ªÅ¥Õ¡A¨ä¥L©Ò¦³ªº±±¨îÅã¥Ü¤£¨ü¼vÅT
Ä´¦p ComboBox 3 ¿ï¬° bb ®É¡A¥u¦³ F3 Åܦ¨ªÅ¥Õ¡A¨ä¥L¥ô¦ó³¡¤À³£¤£ÅÜ¡A
®ÄªG¦p¤U¹Ï
Jess

TOP

¦^´_ 5# jesscc
§Ú¥u¬O·Q´£¥ÜÅý§Aª¾¹D¸Ó¦p¦ó¹F¦¨§Aªº»Ý¨D¡A
¦Ü©ó¦p¦ó¹ê°ÈÀ³¥Î«h»Ý­n§A¦Û¤v¨Óºc·Q¤F¡C
´«¥y¸Ü»¡¡A§Úµ¹ªº¬O¤èªk¡A¦Ó¤£¬O§A³Ì²×¤§µª®×¡C

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD