[µo°Ý] Ãö©ó¿ï¨úÀx¦s®æ«á¡A¸Ó¦C½d³òÅܦâ¡A¥X²{¦ì²¾¡C

av8d

¦U¦ì«e½ú­Ì¦n¡A
³o­ì¬O¥Ñ¾ã¦CÅܦâ§ï¼g¦Ó¦¨¡A¦ý¨S§ï¦¨¥\¡Aºô¸ô¤WÁÙ¦b§V¤O·j´M¤¤¡A
¿ù»~ªº³¡¤À¬O¡G
·í§Ú¿ï¨úC4®É¡A¸Ó¬OA4:G4Åܦâ
«h¥X²{¦ì²¾¦¨A7:G7

·í§Ú¿ï¨úC5®É¡A¸Ó¬OA5:G5Åܦâ
«h¥X²{¦ì²¾¦¨A9:G9

·í§Ú¿ï¨úC6®É¡A¸Ó¬OA6:G6Åܦâ
«h¥X²{¦ì²¾¦¨A11:G11

¦b¦¹¥ý¨D§U«e½ú­Ì¡A´M¨D¸Ñµª¡I·PÁ¸U¤À¡I½Ð¤U¸üªþ¥ó¡C
°ÝÃD.rar (39.31 KB)

¤U¸ü¦¸¼Æ: 9

2021-9-3 21:11

av8d

¦^´_ 29# samwang


  Worksheet_SelectionChange§ï¦¨¼Ò²Õªº¼gªk§Ú«Ü³ßÅw¡A¶i¦Ó¾Ç²ß¨ì§ó¦h·sª¾¡AÁÂÁ±z¡I

samwang

¦^´_ 28# av8d

¬O§_§ó¦nªº¼gªkÅý¦bComboBox1ÅܰʮɡA­ìÅܦ⪺Àx¦s®æ©Î¦CÅܦâ©O¡H
>>¤£¦n·N«ä¡A²×©ó¤F¸Ñ±zªº»Ý¨D¡A¦pªþ¥ó½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

av8d

¦^´_ 25# samwang

¦³¤@­Ó¼ÐÃD©µ¦ùªº°ÝÃD·Q½Ð±Ð¡A¦pªþ¥ó
°ÝÃD©µ¦ù2_0909.rar (58.96 KB)

¤U¸ü¦¸¼Æ: 1

2021-10-8 00:56

Àɮפ¤ComboBox1_Change³z¹L§ï¼g¥i¥¿±`Åܦâ¡A

1. Public Sub ComboBox1_Change()
   
2.     Call ÃC¦â
   
3.     ComboBox1.BackColor = GBY
   
4.     Dim myRng As Range
   
5.     Set myRng = ActiveCell
   
6.     [A1].Select
   
7.     myRng.Select
   
8. End Sub

½Æ»s¥N½X

­ì¥ý¨S¦³[A1].Select¡A¬°¤FIJµoÅܦâ¡A¦ý¬O¤£ª¾¹D¸Ó¦p¦ó§ï¼g¡A¥u¦n¬°¤F¦³¹ïªºµ²ªG¥[¤Jªº¡A
½Ð°Ý«e½ú¡A¬O§_§ó¦nªº¼gªkÅý¦bComboBox1ÅܰʮɡA­ìÅܦ⪺Àx¦s®æ©Î¦CÅܦâ©O¡HÁÂÁÂ

av8d

¦^´_  samwang

¸U¤À·PÁ¡A½Ð°Ý«e½ú ¶}±ÒVBA³o¬qµ{¦¡½X¬ðµM¥¢®Ä­ì¥»¥¿±`(¦p¤U¹Ï)


«á¨Ó¤£ª¾¤°»ò­ì¦] ...
av8d µoªí©ó 2021-10-2 01:31

«á¨Óµo²{¡A¬O¦]¬°¦³¦Û­qªí³æ¡A©Ò¥H·|¥¢®Ä¡A¦ý¬O¤S¤£¯à¦]¦¹²¾°£¦Û­qªí³æ¡AÄ~Äò´M§äµª®×¤¤¡C
³Æµù¡G¦Û­qªí³æ=UserForm

av8d

¦^´_ 25# samwang

¸U¤À·PÁ¡A½Ð°Ý«e½ú ¶}±ÒVBA³o¬qµ{¦¡½X¬ðµM¥¢®Ä

1. Private Sub Workbook_Open()
   
2. Application.VBE.MainWindow.Visible = True
   
3. End Sub

½Æ»s¥N½X

­ì¥»¥¿±`(¦p¤U¹Ï)

¤U¸ü (28.49 KB)

2021-10-2 01:30

«á¨Ó¤£ª¾¤°»ò­ì¦]¥¢®Ä(¦p¤U¹Ï)

¤U¸ü (38.81 KB)

2021-10-2 01:31

¤£ª¾«e½ú¦³¨S¦³¹J¨ì¹L¡A¦pªG¦³ÁٽиѴb¡A¸U¤À·PÁ¡C

samwang

¦^´_ 24# av8d


If Intersect(xA, Target) Is Nothing Then Exit Sub
³o¬qªº·N«ä¬O¡H
>> ¥i¥H§Q¥ÎF1¬d¸ß¡AIntersect: ·|¶Ç¦^¥Nªí¨â­Ó©Î¦h­Ó½d³òªº¯x§Î¥æ¶°ªº Range ª«¥ó¡C ¦pªG«ü©wªº¤@­Ó©Î¦h­Ó½d³ò¨Ó¦Û¤£¦Pªº¤u§@ªí¡A«h·|¶Ç¦^¿ù»~¡C
©Ò¥H¦p¹L¿ï¾Ü¬OTarget:3 col¦ý¨S¦³¦bxA½d³ò´NÂ÷¶}   

av8d

¦^´_ 22# samwang

samwang«e½ú±z¦n¡A·Q½Ð±Ð±z
If Intersect(xA, Target) Is Nothing Then Exit Sub
³o¬qªº·N«ä¬O¡H
§Ú³Ìªñ¼g¨ì¨â­Ó°Ï¶ô¡A

1. If Target.Column = 3 Then
   
2.     Call ÃC¦â
   
3.     Set xC = [C1]
   
4.     xC.Interior.Pattern = 0
   
5.     If Intersect(xC, Target) Is Nothing Then Exit Sub
   
6.     For Each xR In xC.Rows
   
7.         If Not Intersect(xR, Target) Is Nothing Then
   
8.             If Cells(xR.Row, 3) <> "" Then
   
9.                 Cells(xR.Row, 3).Interior.Color = Col
   
10.             Else
    
11.                 Cells(xR.Row, 3).Interior.Color = Col
    
12.             End If
    
13.         End If
    
14.     Next
    
15.     Set xAH = [A4:H1000]
    
16.     xAH.Interior.Pattern = 0
    
17.     If Intersect(xAH, Target) Is Nothing Then Exit Sub
    
18.     For Each xR In xAH.Rows
    
19.         If Not Intersect(xR, Target) Is Nothing Then
    
20.             If Cells(xR.Row, 3) <> "" Then
    
21.                 [F2] = ActiveCell
    
22.                 [G2] = ActiveCell
    
23.                 xR.Interior.Color = Col
    
24.             Else
    
25.                 [F2] = ActiveCell
    
26.                 [G2] = ActiveCell
    
27.                 Cells(xR.Row, 3).Interior.Color = Col
    
28.             End If
    
29.         End If
    
30.     Next

½Æ»s¥N½X

¦b°£¿ùªº®É­Ô±NIf Intersect(xA, Target) Is Nothing Then Exit Sub®³±¼§Y¥i¨Ï¥Î¡A
¦ý¬O·Qª¾¹D¬°¤°»ò¡H¸U¤À·PÁ¡C

av8d

¦^´_ 22# samwang

«e½ú¤j¤j±z¦n¡A¨ä¹ê¦³¤èªk³£¥i¥H¡A
¦]¬°³o¼Ë¤ñ¸û¤è«K¨Ï¥ÎªÌ§Ö³t¿ï¨ì·Q­nªº¿ï¶µ¡A¤£¹L¦n¹³³£¥u¦³UserForm¯à«ü©wªº¼Ë¤l¡C

samwang

¦^´_ 21# av8d


    ¤£¯àºô©³Åܦâ¡A³æ¤@¤å¦rÅܦâ¤]¬O§Úªº¥Ø¼Ð¡A
>> ±zªº»Ý¨D¬O¦rÅé§ïÃC¦â¡A¤£¬OÀx¦s®æ¥[ÃC¦â(©³¦â)¡A¤£ª¾§Úªº²z¸Ñ¬O§_¥¿½T¡AÁÂÁ¡C