Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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£¨´ËÇ°IllustratorδÆô¶¯£©£¿

Çë½ÌһϣºÎÒÓÃvbдÁËÒ»¸öµ÷ÓÃIllustratorµÄ²âÊÔ³ÌÐò£¬´úÂëºÜ¼òµ¥£ºPrivate Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?

°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌøתµ½´íÎóÐÐ

²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.

ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

.netÀïÃæÓÐûÓÐÏñvbÀïµÄrichtextbox¿Ø¼þ°¡

.netÀïÃæÓÐûÓÐÏñvbÀïµÄrichtextbox¿Ø¼þ°¡£¿
Óеġ£Ãû×ÖÒ²²î²»¶à¡£RichEdit »òÕß RichTextBox¡£

winfromÏîÄ¿Öй¤¾ßÏäÓеİÉ

webformûµÄ£¬Ö»ÓÐwinÓÐ
web¿ÉÒÔÓÃfckedit

ÒýÓÃ
webformûµÄ£¬Ö»ÓÐwinÓÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ