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

¤T­ÓÄæ¦ì¹ï¤ñ¸ê®Æ¤ÎŪ¨ú¸ê®Æ

¤T­ÓÄæ¦ì¹ï¤ñ¸ê®Æ¤ÎŪ¨ú¸ê®Æ

KH ªí ®Ö¹ï Data ªí

±qKH ªí²Ä3¦æ¶}©l¨ì³Ì«á¤@¦æ¡A¦bData ªí内§ä´M¤U­±¤T­Ó¹ï¤ñ³£¬Û¦Pªº
KH ªíÄæB ¹ï¤ñ Data ªíÄæA
KH ªíÄæC ¹ï¤ñ Data ªíÄæB
KH ªíÄæD ¹ï¤ñ Data ªíÄæC

¤W­±¤T¼Ë³£¬Û¦Pªº¸Ü¡A±NKH ªíªºÄæE ¾É¤JDATA ªíªº¸Ó¦æ¬Û¦P¼Æ¾ÚªºÄæD

¦pªG3¼Ë¦³¥ô¦ó1¼Ë¤£¦Pªº¡A±NKH ªíªºÄæB - D ¾É¤JDATA ªí³Ì«á¤@¦æªºÄæA-D

³Ì«áDATA ÄæE ´N­pºâ¡AÄæD ´î¥h ÄæF - ³Ì«á¤@Ä榳¼Æ¾Úªº

½d¨Òa.rar (19.2 KB)

¦^´_ 14# ­ã´£³¡ªL

ÁÂÁ­ã¤j´£¨Ñ¦³¥Î¸ê®Æ, ÁÂÁÂ

TOP

¦^´_ 14# ­ã´£³¡ªL


    ÁÂÁ­ã¤j«üÂI

TOP

Ãþ¦ü°ÝÃDµo¤F¦n´X©«, ´N¦b³oµ¹ÀÉ®×//
µ{¦¡½X¶·¦Û¤v¤@¦æ¤@¦æ¥h¸ÑŪ, «áÄòºûÅ@ÁÙ¬O­n¾a¦Û¤v
Xl0000203-1.rar (22.19 KB)

TOP

¦^´_ 5# Andy2483

Andy ¾Ç¥S,
ÁÂÁ§A¸Ô²Ó©M­@¤ßªº¸ÑÄÀ,
¤j«á½úÀò¯q¨}¦h, ÁÂÁ«ü¾É

TOP

¦^´_ 10# Andy2483


    ¬Ý¤F³o¨Ç½d¨Ò¡A¸òµÛ½d¨Ò¥h­×§ï¡AÁÙ¦³ÂIÀ´¡A¦Û¤v¥h³Ð«Ø¡AÁٻݭn§ó¥[²`¤J¤F¸Ñª¾ÃѤ~¦æ¡C

TOP

¦^´_ 8# hcm19522


    ÁÂÁÂ

TOP

¦^´_ 6# 198188

ÁÂÁ«e½ú¤@°_¾Ç²ß
¨ä¹ê¦pªG¦r¨åkey¤£·|­«½Æ¯S©Ê »P5# ªº¦r¨å¯S©ÊÀ´¤F,±`¹B¥Î´N·|¶i¨B
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2024-3-1 14:49 ½s¿è

¦^´_ 7# shuo1125


ÁÂÁ«e½ú¤@°_¾Ç²ß
¬Oªº! ¦r¨å«Ü¯S§O
Option Explicit
Sub TEST()
Dim Z, V&
Set Z = CreateObject("Scripting.Dictionary")
V = Z("ÃöÁä¦r1") + Z("ÃöÁä¦r2") + Z("ÃöÁä¦r3") + Z("ÃöÁä¦r4") + 100
MsgBox Z.Count '¦¹®ÉZ¦r¨å¸Ì¤w¸g¦³4­Ókey
MsgBox Z("ÃöÁä¦r1") + Z("ÃöÁä¦r2") + Z("ÃöÁä¦r3") + Z("ÃöÁä¦r4")
End Sub
­n±`À³¥Î¦r¨å¤~¯à»P¦r¨å¦¨¬°¦n¤Í
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

°Ñ¦Ò(·j´M½s¸¹12459) googleºô§}:https://hcm19522.blogspot.com/
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD