ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Excel Vba 2007 ¥Î Spreadsheet 11.0±±¥ó °ÝÃD

Excel Vba 2007 ¥Î Spreadsheet 11.0±±¥ó °ÝÃD

½Ð°ÝExcel vba 2007 ±±¥óSpreadsheet 11.0 ¦³¨S¦³¸òListView±±¥ó¤@¼Ë, ¥i¥H¦Û­q¼ÐÃD¦WºÙ?
ListView±±¥ó¥i§_¸òSpreadsheet±±¥ó¤@¼Ë¥i¥H½s¿è©O?
¥t¥~,¥H¤U¬O¦bUserForm_Initializeªì©l¤Æªº, ¦ý¬°¦ó¤£¯à°õ¦æ?(¦b¤@¯ë¤u§@ªí(¨Ò¦p:sheet1)°µ¬O¥i¥Hªº¡C) ¬O¤£¬OSpreadsheet±±¥ó¤£¤ä´©¦¹ÄÝ©Ê©O?
With Spreadsheet1
    .ActiveSheet.Range(Cells(1, 1), Cells(2, 2)).Interior.ColorIndex = 3
End With

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-10-12 23:30 ½s¿è

¦^´_ 1# kennywongsh
¦]¬°Sheet1 »P Module1 ¬O¦b¤£¦Pªº°Ï°ì¸Ì,
©Ò¥H§A­n¦b Module1 ¤¤°Ñ·Ó¨ì Sheet1 ªºª«¥ó,
´N»Ý­n§i¶D¥¦¦¹ª«¥ó¬O¨Ì¦s©óSheet1ªº.
  1. Sub nn()
  2.   With Sheet1.Spreadsheet1
  3.     .DisplayTitleBar = True ' ­nÅã¥Ü¼ÐÃD
  4.     .Caption = "¸ê®Æªí®æ1" ' Åܧó¼ÐÃD¤å¦r¤º®e
  5.   End With
  6. End Sub
½Æ»s¥N½X
¦³­Ó§Þ¥©§A¥i¥H¸Õ¸Õ¬Ý,
¥ý¶i¤J³]­p¼Ò¦¡·s¼Wª«¥ó«á,
¦bª«¥ó¤W«ö·Æ¹«¥kÁä¦AÂI¿ï "ÄÝ©Ê",
´N¥i¥H¦b¥X²{ªºÄݩʵøµ¡¤¤¬Ý¨ì¥¦¦³­þ¨ÇÄÝ©Ê¥i¥H¨Ï¥Î.
­YÂI¿ï "À˵øµ{¦¡½X" «h¥i¥H¬Ý¨ì¥¦ªº¹w³]¤èªk,
©ó¥k¤è¤U©Ô¿ï³æ¤¤«h¥i¥H¬Ý¨ì¥¦¥i¥H¨Ï¥Îªº¤èªk.

¦Ü©ó ListView «Ü¤[¥H«e¦³¥Î¹L,
¤é¤[¤w¸g°O¤£²M·¡¦b³o´N¥ý¤£´£¥X¤F.

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD