Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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        '×îºóÒ»ÐУ¨ÓëÁ¬


Ïà¹ØÎÊ´ð£º

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

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

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

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

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

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

Çó½ÌÏÂVBÈçºÎ¸øD3DÓÎϷдÆÁ - VB / API

ÏëÔÚwarcraft3Àï½øÐÐдÆÁ²Ù×÷¡¾Èç¶Ôսƽ̨ÖеÄʤ¸ºÌáʾÐÅÏ¢¡¿£¬Ð§¹û¾ÍÏñÓÎϷƽ̨ÖÐÒ»Ñù£¬ÎÒÊÔ¹ýÔÚÒ»´°¿ÚÖÐдÈëÎÄ×Ö£¬È»ºóÒ»Ö±Èô°¿ÚÇ¿ÖÆ×îÇ°£¬ËäÈ»ÄÜʵÏÖÎÄ×ÖÏÔʾ£¬µ«ÊÇÎÄ×ֻ᲻¶ÏÉÁ˸£¬¶øÇÒÓв»È·¶¨BUG£¬Í¨¹ýÂÛ̳ËÑ ......

vb²éѯÊý¾Ý¿âÎÊÌâ

ÔõôÓÅ»¯²éѯµÄЧÂÊ£¬±ÈÈçÎÒÏë´Ó100ÍòÌõ¼Ç¼ÖÐÿ´ÎÖ»²éѯ100Ìõ¼Ç¼µÄ»°£¬ÄÇôÕâÌõsqlÓï¾ä¸ÃÔõôʵÏÖ£¬×¢Ò⣺ÓïÑÔÊÇVBScriptµÄ£¬
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html

Éæ¼°µ½Ëã·¨£¬goog ......

VB Çë½Ì¸ßÊÖ¹ØÓÚÓû§¿Ø¼þÎÊÌâ

ÎÒÖÆ×÷Á˸öÓû§¿Ø¼þ£¬ÐèÒª¶¯Ì¬¼ÓÔص½´°ÌåÉÏ

    Set objExt = Controls.Add("¹¤³Ì1.meActiveX", argName)
    objExt.Visible = True

³ÌÐòÒ»´ÎÄܼÓÔØN¸ö£¬ ÏÖÔÚÏë¶Ô ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ