Çëvb¸ßÊÖ°ïæ
VBÖвåÈëExcel´°Ìå²¢ÇÒExcelµÄÿһÐж¼¿ÉÒÔÒÔ²»Í¬µÄÑÕÉ«ÏÔʾ
ÉÏ´ÎÎÒ°ïÄã½â¾öÎÊÌ⣬·ÖÈ´¸øÁ˱ðÈË
¶Ô²»ÆðÄÇÊÇÎÒ¿´´íÁ˰¡ Õâ´Î²»»á°¡
ÎÒµ±Ê±¼±×Åϰà
ÕâÁ½¸öÌû×Ó½áÁ˰É
http://topic.csdn.net/u/20091029/11/02e04601-b428-44eb-ac0c-57ff54282a8b.html
http://topic.csdn.net/u/20091029/11/9906512a-bd23-40cc-9d70-a333c92f7871.html
½á¹ýÁË ºÇºÇ ÏÖÔÚ»¹¿ÉÒÔ¼ÌÐø°ïÎÒÂð£¿
Á½ÖÖ·½·¨£º
1¡£¹¤³Ì——¡µ²¿¼þ——¡µ¿É²åÈë¶ÔÏó——¡µmicrosoft excel ¹¤×÷±í
2¡£¹¤³Ì——¡µ²¿¼þ——¡µ¿Ø¼þ——¡µmicrosoft office web components 11.0
lzÒªÓõÄÊÇÄÄÒ»ÖÖ£¿
¿ÉÊÇÔÚExcelÖл¹ÒªÇóÿÐпÉÒÔÓò»Í¬µÄÑÕÉ«ÏÔʾ°¡
Õâ¸öÔõôʵÏÖ£¿
ÎÒÓõÚÒ»ÖÖ°É
¿´ÆðÀ´¼òµ¥µã
ºÇºÇºÇ
µÚÒ»ÖÖ¿´ÆðÀ´²»ÃÀ¹Û
Ŷ ÄǾÍÓõڶþÖÖ°¡ Äã¸Ð¾õÄÇÖֺþÍÄÇÖֺð¡
VB code:
Private Sub Command1_Click()
Dim lngRow As Long
Dim intMod As Integer
With Spreadsheet1.ActiveSheet
For lngRow = 1 To 50
intMod = lngRow Mod 5
.Rows(lngRow & ":" & lngRow).Interior.ColorIndex = intMod + 1
Next lngRow
End With
End Sub
Ôõôû»ØÒôѽjhone99
ÎÒ»¹ÓÐÒ»¸öÎÊÌâÔÚvbÀï¿ÉÒÔ
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÉè¼ÆÒ»¸ö¼ÆËã»úÄ£Ä⿼ÊÔϵͳ£¬´øÓÐѧÉúºÍ¹ÜÀíÔ±£¬ËùÒԵǼ´°ÌåºÍÖ÷´°ÌåÏë·Ö¿ª£¬µÇ½ѧÉúµÄÏÔʾѧÉúµÄÖ÷´°Ì壬µÇ½¹ÜÀíÔ±ÏÔʾ¹ÜÀíÖ÷´°Ì壬ÎÒÖ»»áÒ»¸ö´°ÌåÓÃÒ»¶Ñ¿Ø¼þ£¬ÏÖÔÚÏíÓжà¸öÖ÷´°Ì壬²»ÖªµÀÔõô×ö£¬Ï£ÍûÇë´ó ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......
ÔÚvbÖÐÔõôÅжϣ¬²åÈëµ½Êý¾Ý¿âÖеÄÖµÊÇÖØ¸´µÄ£¬±¾È˲ŸսӴ¥VBÓïÑÔ£¬ÉõÊÇÓÐºÃ¶àµØ·½»¹²»¶®£¬»¹Çë¸÷λ´óÏÀÃǸø³ö´úÂ룬ллÁËѽ£¡£¡£¡
²åÈë֮ǰselectһϰ¢¡£
»òÕßдһ¸ö×éºÏSQL²åÈëÓï¾ä£¬ÀýÈç
IF not Exist(
& ......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......