advanced help
per page, with , order by , clip by
Results of 1 - 1 of about 28 for 平均 平日 (0.001 sec.)
平均 (1366), 平日 (459)
[[20150305185806]]
#score: 10343
@digest: c88dd30a93e8eec6c7da2448b01b8111
@id: 67419
@mdate: 2015-03-05T10:38:39Z
@size: 1018
@type: text/plain
#keywords: huko (7620), (hu (3808), 択? (3128), 1999 (3076), ロ設 (2593), 動マ (2018), 連番 (1771), 定? (1408), 定セ (1346), ドコ (1214), ロ内 (1075), ロ登 (1071), ハー (787), 番は (589), 2015 (583), 1000 (571), ら10 (512), ロ実 (501), に連 (492), 木) (469), ドボ (416), マク (382), マウ (356), は10 (352), 領域 (349), ウス (343), クロ (343), (β (336), コマ (305), 明不 (279), 指定 (257), マン (257)
『連番の自動マクロ』(huko)
マクロ実行ごとに指定セルに連番をいれるマクロを教えてください。 連番は1000〜1999までで、1999を使用したら1000に戻ります。 宜しくお願いします。 < 使用 Excel:Excel2003、使用 OS:WindowsXP > ---- 指定セルとは? 1000以上のセルをマウスで選択? あるいは、マクロ内で領域をハードコードで指定? (β) 2015/03/05(木) 19:09 ---- βさんへ 説明不足で申し訳ありません。 イメージはマクロ設定したコマンドボタンを押すたびに、 A1セルに連番が入力 連番は1000から1999までを繰り返し 1999まで終わったら1000に戻る つたない説明で申し訳ありません。 (huko) 2015/03/05(木) 19:14 ---- たとえば以下をボタンにマクロ登録。 Sub test() Dim n As Long n = Val(Range("A1").Value) Select Case n Case 0, 1999 n = 1000 Case Else n = n + 1 End Select Range("A1").Value = n End Sub (β) 2015/03/05(木) 19:32 ---- βさん ありがとうございます。出来ました! (huko) 2015/03/05(木) 19:38 ...
http://www.excel.studio-kazu.jp/wiki/kazuwiki/201503/20150305185806.txt - [detail] - similar
PREV NEXT
Powered by Hyper Estraier 1.4.13, with 97032 documents and 608003 words.

訪問者:カウンタValid HTML 4.01 Transitional