VBÔõÑùÌáÈ¡excelÀïµÄ×îºóÒ»¸öдÈëµ¥Ôª¸ñµÄÐÐÁÐ
ÈçÌâ
VB code:
'²»ÖªµÀÄãÊDz»ÊÇÒªÕâ¸ö£º
'vba´úÂëÈçÏ£º
ÐкŠ= ActiveCell.Row
ÁкŠ= ActiveCell.Column
'VBÖÐÓÃʱ£¬¼ÓÉÏVBÖд´½¨excelµÄ¶ÔÏó
'ÒÔÏÂÒ²Êdz£ÓõÄ:
'vba´úÂëÈçÏ£º
nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row '×îºóÒ»ÐУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
nLC = ActiveSheet.Cells.SpecialCells(xlLastCell).Column '×îºóÒ»ÁУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
Nextcol = Cells(nLR, 1).End(xlToRight).Column '²éÕÒ×îºóÒ»ÐÐ×îºóÒ»ÁУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
Nextrow = Cells(1, nLC).End(xlDown).Row '²éÕÒ×îºóÒ»ÁÐ×îºóÒ»ÐУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
'VBÖÐÓÃʱ£¬Í¬Ñù¼ÓÉÏVBÖд´½¨excelµÄ¶ÔÏó
¹Ø×¢
ÎÒÒªµÄÊÇ£¬µ±ÓÐÒ»¸öexcelÎļþÒѾ±»Ð´µ½µÚ¶þÐеÚÈýÁÐÁË£¬ÄÇÎÒÒªÔÚÏÂÒ»´Î´ò¿ªÕâ¸öÎļþµÄʱºò½Ó×ŶÔÕâ¸öÎļþд¡£Õâʱ¾ÍµÃÖªµÀ£¬Õâ¸öÎļþдµ½ÄÄÁË£¬Ò²¾ÍÊÇÒªÇå³þÕâ¸öÎļþµÄÉÏÒ»´Î×îºóдÈë×îºóÒ»¸ñµÄÐÐÓëÁС£
Èç¹ûÄãµÄ±í¸ñÊǾØÐεģ¬ÓÃÒÔÏÂÓï¾ä¿ÉÒÔÍê³É£º
nLR = ActiveSheet.Cells.SpecialCells(11).Row '×îºóÒ»ÐУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
nLC = ActiveSheet.Cells.SpecialCells(11).Column '×îºóÒ»ÁУ¨ÓëÁ¬ÐøÓë·ñÎ޹أ©
Èç¹ûÄãÊäÈëÍê×îºóÒ»¸öµ¥Ôª¸ñºó£¬Ã»ÓÐÒƶ¯¹ý»î¶¯µ¥Ôª¸ñ£¨¼´ºÚ¿òÌ×סµÄµ¥Ôª¸ñ£©¿ÉÒÔÈçÏ£º
ÐкŠ= ActiveCell.Row
ÁкŠ= ActiveCell.Column
nLR = ActiveSheet.Cells.SpecialCells(xlLastCell).Row '×îºóÒ»ÐУ¨ÓëÁ¬
Ïà¹ØÎÊ´ð£º
Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
.netÀïÃæÓÐûÓÐÏñvbÀïµÄrichtextbox¿Ø¼þ°¡£¿
Óеġ£Ãû×ÖÒ²²î²»¶à¡£RichEdit »òÕß RichTextBox¡£
winfromÏîÄ¿Öй¤¾ßÏäÓеİÉ
webformûµÄ£¬Ö»ÓÐwinÓÐ
web¿ÉÒÔÓÃfckedit
ÒýÓÃ
webformûµÄ£¬Ö»ÓÐwinÓÐ ......