[µo°Ý] ¦p¦ó¦b¤£¦P¤u§@ªí°µ¿ï¾Ü?

pupai

½Ð°Ý
§Ú¥i¥H¥Î¤U¦Cªº¤è¦¡¡A¨ì¤£¦P¤u§@ªí°µ§Ú­nªº°Ê§@¡C
Sub ¥¨¶°1()
    Sheets("B").Select
    Range("A1").Select
    Sheets("A").Select
    Range("A1").Select
End Sub


¦ý§Ú¦pªG¤£ª¾¹D¤u§@ªí¦WºÙ¡A§Ú¤S·Q¦b¤£¦P¤u§@ªí°µ§Ú­nªº°Ê§@
§Ú¸Ó¦p¦ó­×§ï¤W­z«ü¥O
ÁÂÁÂ

kim223824

ÁÙ¥i¥H¥Îºâªº¡A¤u§@­¶¥Ñ¥ª¦Ü¥k¬O 1,2,3.................................
¦pªG§AªºB­¶­±¬O²Ä¤@­¶ ¥i¥H§ï¬°Sheets(1).Select
¦pªG§AªºA­¶­±¬O²Ä¤G­¶ ¥i¥H§ï¬°Sheets(2).Select
¦pªG§A­n§ä³Ì«á¤@­¶ ¥i¥H§ï¬°Sheets(sheets.count).Select

Sub ¥¨¶°1()
    Sheets(1).Select
    Range("A1").Select
    Sheets(2).Select
    Range("A1").Select
End Sub

pupai

ÁÙ¥i¥H¥Îºâªº¡A¤u§@­¶¥Ñ¥ª¦Ü¥k¬O 1,2,3.................................
¦pªG§AªºB­¶­±¬O²Ä¤@­¶ ¥i¥H§ï¬° ...
kim223824 µoªí©ó 2017-11-17 15:17

    ·PÁÂK¤jªº¦^ÂСAÅý§ÚÄÀºÃ

¥t¥~¥i¥H½Ð°Ý°j°éªº°ÝÃD
Dim i As Integer
  For i = 1 To n
°õ¦æ¤º®e
Next i


¤W­z°j°é¬O°µn¦¸
½Ð±Ð§Ú¸Ó¦p¦ó­×§ï
ÁÂÁÂ!!

kim223824

·PÁÂK¤jªº¦^ÂСAÅý§ÚÄÀºÃ

¥t¥~¥i¥H½Ð°Ý°j°éªº°ÝÃD
Dim i As Integer
  For i = 1 To n
°õ¦æ ...
pupai µoªí©ó 2017-11-28 16:56

§Aªº n ¬O­n°õ¦æ¤°»ò¤º®e?
1.¨Ò¦p: ¦pªG¬O©Ò¦³¤À­¶­n³£­n¶]¤@¹M¡An´N¬O¥Nªí­¶¼Æ¡An´N¥i¥H§ï¬°sheets.count¡C
Dim i As Integer
  For i = 1 To sheets.count
          °õ¦æ ...
Next

2.²Ä¤G¤è¦¡¬O­ì¨Óµ{¦¡¤£§ï¡A¦b°j°é¤§«e¥[¤J n = sheets.count
Dim i As Integer
  n=sheets.count
For i = 1 To n
          °õ¦æ ...
Next

pupai

§Aªº n ¬O­n°õ¦æ¤°»ò¤º®e?
1.¨Ò¦p: ¦pªG¬O©Ò¦³¤À­¶­n³£­n¶]¤@¹M¡An´N¬O¥Nªí­¶¼Æ¡An´N¥i¥H§ï¬°sheets.c ...
kim223824 µoªí©ó 2017-11-29 14:50

    K¤j  ¨ü¯q¨}¦h¡AÁÂÁÂ!!