Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎ×èֹij³ÌÐòÔËÐС££¿

±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£

ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£

È»ºóÔÊÐíºó·ÅÐС£


±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£

¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£

ÉèÖ ......

VBÖÐÔõôÑùÔÚ±í¸ñÖÐÐÞ¸Ä×ÖÌ壿 - VB / »ù´¡Àà

±ÈÈç˵ҪÔÚ1±íÖеĵÚÈýÁеڶþÐе¥ÔªÖÐÊäÈë¡°Ò»¶þÈý¡±Ò»Òª´ÖÌåËÎÌå12ºÅ×Ö£¬¶þ ²»Òª´ÖÌå 15ºÅ×Ö ÈýбÌå5ºÅ×Ö
´úÂëÓ¦¸ÃÔõô´ò£¿
LZÖ¸µÄÊǸöʲô±í¸ñ¿Ø¼þÄØ£¬Ã²ËÆÖ»ÄÜÉèÖÃÕû¸ö±íµÄ×ÖÌ壬»òÕßij¼¸Ðлò¼¸ÁУ¬Ã»Óе¥¶ÀÉèÖ ......

vbÐÞ¸ÄDTPicker1ÈÕÆÚÎÊÌâ

Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ