µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» §Ç¸¹¦Û°Ê¸õ¸¹¤Î«O¯d¦rÅé
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
§Ç¸¹¦Û°Ê¸õ¸¹¤Î«O¯d¦rÅé
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ª÷¿ú
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1427 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
1
#
¸õÂà¨ì
»
µoªí©ó 2023-1-3 09:32
|
Åã¥Ü¥þ³¡©«¤l
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-1-3 09:34 ½s¿è
¦^´_
3#
BV7BW
ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò
¾ÇÂǦ¹¥DÃD½m²ßIJµoªºª¾ÃÑ,¥H¤U¬O«á¾Çªº«Øij¤èªk,½Ð°Ñ¦Ò
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'¡ô¦b¹w³]ªº«ö¨â¤U°Ê§@¤§«e¡A«ö¨â¤U¤u§@ªí®É¡A§Yµo¥Í¦¹¨Æ¥ó¡C
'https://learn.microsoft.com/zh-tw/office/vba/api/excel.worksheet.beforedoubleclick
Dim T$, V%
'¡ô«Å§iÅܼÆ:T¬O¦r¦êÅܼÆ,V¬Oµu¾ã¼ÆÅܼÆ
With Target
'¡ô¥H¤U¬OÃö©óIJµoªºµ{§Ç
If .Address = "$E$5" Then
'¡ôÂùÀ»·Æ¹«¥ªÁä¦pªGÀx¦s®æ¦ì§}¬O "$E$5" ??
T = [E5]
'¡ô¥OT³o¦r¦êÅܼƬO[E5]ªº¤º®e¦r¦ê
V = Val(Mid(T, 2))
'¡ô¥OV³o¾ã¼ÆÅܼƬO T¦r¦êÅܼƲÄ2Ó¦r¶}©l«á±ªº©Ò¦³¦r¤¸,¦A¥HVal()Âà¤Æ¬°¼ÆÈ
http://forum.twbts.com/viewthrea ... a=pageD1&page=2
[E5] = Left(T, 1) & V + 1
'¡ô¥O[E5]Àx¦s®æȬO T¦r¦êÅܼƲÄ1Ó¦r,³s±µV¾ã¼ÆÅܼÆ+1,©Ò²Õ¦¨ªº·s¦r¦ê
Cancel = True
'¡ô¨ú®øìÀx¦s®æ¥ªÁä¹w³]ªº«ö¨â¤U°Ê§@
Beep
'¡ôµo¥X¹ÍÁn
End If
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'¡ô·í¨Ï¥ÎªÌ©Î¥~³¡³sµ²Åܧó¤u§@ªí¤¤ªºÀx¦s®æ®É·|µo¥Í¦¹¨Æ¥ó¡C
'https://learn.microsoft.com/zh-tw/office/vba/api/excel.worksheet.change
Dim xF As Range, Da&, Db&, xRow&, VL
'¡ô«Å§iÅܼÆ:xF¬OÀx¦s®æÅܼÆ,(Da,Db,xRow)¬Oªø¾ã¼ÆÅܼÆ,VL¬O³q¥Î«¬ÅܼÆ
With Target
'¡ô¥H¤U¬OÃö©óIJµoªºµ{§Ç
If .Address = "$K$1" Then
'¡ôÀx¦s®æȽs¿è¦pªGÀx¦s®æ¦ì§}¬O "$K$1" ??
Set xF = [K2:K6000].Find(.Value, LookIn:=xlValues, lookat:=xlWhole)
'¡ô¥OxF³oÀx¦s®æÅܼƬO ¥ÎFind()¤èªk,¥H[K1]È´M§ä[K2:K6000]Àx¦s®æ¸Ì È¥þ³¡¬Û¦PªºÀx¦s®æ
'https://learn.microsoft.com/zh-tw/office/vba/api/excel.range.find
If Not xF Is Nothing Then xRow = xF.Row
'¡ô¦pªGxF³oÀx¦s®æÅܼƦ³§ä¨ì,´N¥OxRowÅܼƬO xF³oÀx¦s®æÅܼƪº¦C¸¹¼Æ¦r
If .Value = "" Then xRow = 3
'¡ô¦pªG[K1]ȬO ªÅ¦r¤¸,´N¥OxRowÅܼƬO 3
If xRow > 0 Then ActiveWindow.ScrollRow = xRow: Range("M" & xRow + 1).Select
'¡ô¦pªGxRowÅÜ¼Æ > 0,´NÅý xRowÅܼƦC©óµøµ¡¦b¦Ü³»¦ì¸m:¥OÀx¦s®æ´å¼Ð¦bMÄ檺¤U¤@¦C¤W
End If
Beep
End With
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
Andy2483
µoµu®ø®§
¥[¬°¦n¤Í
Andy2483
(«pÁy¥Öªº¾Ç¥Í)
·í«eÂ÷½u
UID
36777
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ª÷¿ú
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
¦b½u®É¶¡
1427 ¤p®É
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
¡@¼ÊºÙ:
«pÁy¥Öªº¾Ç¥Í
¤j¾Ç¥Í
©«¤l
1429
¥DÃD
40
ºëµØ
0
¿n¤À
1453
ÂI¦W
0
§@·~¨t²Î
Windows 7
³nÅ骩¥»
Excel 2010 & 2016
¾\ŪÅv
50
©Ê§O
¨k
¨Ó¦Û
¥xÆW
µù¥U®É¶¡
2020-7-15
³Ì«áµn¿ý
2024-5-18
2
#
µoªí©ó 2023-1-6 07:42
|
Åã¥Ü¥þ³¡©«¤l
¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-1-6 07:57 ½s¿è
¦^´_
5#
BV7BW
ÁÂÁ«e½ú¦^´_
«á¾Ç«Øij¦p¤U:
«e½ú»Ý¨D: ¨ÒV2(1111209001).E5À³¬O(Äx1),¸g¿é¥X«á V2¤w¦Û°Ê¸õ¸¹¬°(1111209002).E5«h¥i¸òV2³Ì«á½X(2)¸õ¬°(Äx2)
E5¿é¤J¤½¦¡ = "Äx" & INT(RIGHT(V2,2))
1."Äx" ¤å¦r³s±µ INT()¨ç¼Æ ¦^¶Çªº¼Æ¦r,³s±µ«á´NÅܦ¨·s¤å¦r¦ê
INT ¨ç¼Æ: ±N¼Æ¦rµL±ø¥ó±Ë¦ì¦Ü³Ì±µªñªº¾ã¼Æ
https://support.microsoft.com/zh-tw/office/int-%E5%87%BD%E6%95%B8-a6c4af9e-356d-4369-ab6a-cb1fd9d343ef
2.±N³QµL±ø¥ó±Ë¦ì¦Ü³Ì±µªñªº¾ã¼ÆªºÈ¬O RIGHT(V2,2) À³¸Ó²£¥Íªº
RIGHT(V2,2)=RIGHT("1111209001" ,2) = "01"
RIGHT ¨ç¼Æ:RIGHT ·|¶Ç¦^¤@¤å¦r¦r¦êªº³Ì«á¦r¤¸©Î¦r¤¸²Õ (¨Ì¾Ú±z©Ò«ü©wªº¦r¤¸²Õ¼Æ)¡C
https://support.microsoft.com/zh-tw/office/right-rightb-%E5%87%BD%E6%95%B8-240267ee-9afa-4639-a02b-f19e1786cf2f
µ²»y:
1."Äx"¤å¦r ³s±µ §âV2Àx¦s®æȨú¥kÃä 2Ó¤å¦r«á,Âà´«¦¨ ¾ã¼Æ ªº·s¦r¦ê
2.§â "1111209001" ¨ú¥kÃä 2Ó¤å¦rªºµ²ªG¬O "01" ¦r¦ê,¦A±N "01" ¦r¦ê Âà´«¦¨ ¾ã¼Æ 1
3.§â "1111209002" ¨ú¥kÃä 2Ó¤å¦rªºµ²ªG¬O "02" ¦r¦ê,¦A±N "02" ¦r¦ê Âà´«¦¨ ¾ã¼Æ 2
4.§â "1111209099" ¨ú¥kÃä 2Ó¤å¦rªºµ²ªG¬O "99" ¦r¦ê,¦A±N "99" ¦r¦ê Âà´«¦¨ ¾ã¼Æ 99
5.§â "1111209102" ¨ú¥kÃä 2Ó¤å¦rªºµ²ªG¬O "02" ¦r¦ê,¦A±N "02" ¦r¦ê Âà´«¦¨ ¾ã¼Æ 2,
¦pªG¨ú¥kÃä¨âÓ¦r´N»P²Ä3¶µ«½Æ¤F,©Ò¥H»Ýn¦Ò¼{²M·¡:¨ú2¦r¤¸ ©Î ¨ú3¦r¤¸
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y
TOP
ÀR«ä¦Û¦b :
צænô½tפߡAÂǨƽm¤ß¡AÀH³B¾i¤ß¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
Word
Excel£¸¯ë°Ï
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·