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

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

¥»©«³Ì«á¥Ñ av8d ©ó 2021-9-30 15:25 ½s¿è

¦^´_ 20# samwang



    ®ÄªG¹³³o¼Ë¡A¦ý¤£¥ÎUserFrom°µ

    ¤£¯àºô©³Åܦâ¡A³æ¤@¤å¦rÅܦâ¤]¬O§Úªº¥Ø¼Ð¡AÁÂÁ«e½ú¤j¤O¨ó§U¡A§Ú·|¦Û¤v§V¤OÄ~Äò¬d§äªº¡A¸ò±z¾Ç¤F«Ü¦h¡C¨ü¯q¨}¦h¡C

TOP

¦^´_ 21# av8d


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

TOP

¦^´_ 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

TOP

¦^´_ 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

TOP

¦^´_ 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Â÷¶}   

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2021-10-2 01:58 ½s¿è

¦^´_ 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¹Ï)
¥¿±`.jpg
2021-10-2 01:30


«á¨Ó¤£ª¾¤°»ò­ì¦]¥¢®Ä(¦p¤U¹Ï)
¥¢®Ä.png
2021-10-2 01:31


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

TOP

¦^´_  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

TOP

¦^´_ 25# samwang

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

Àɮפ¤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ÁÂÁÂ

TOP

¦^´_ 28# av8d

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

°ÝÃD©µ¦ù2_1008.zip (57.84 KB)

TOP

¦^´_ 29# samwang


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

TOP

        ÀR«ä¦Û¦b : §g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD