5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

477 :名無しさん@そうだ選挙にいこう:2011/06/23(木) 03:41:32.47
>>476 取りあえず印刷前に再計算を実行するようにしてみた

Sub 個票印刷()
 Dim lStart As Long, lEnd As Long, lX As Long
 lStart = CLng(StrConv(InputBox("最初に印刷する該当者の番号を半角で入力してください(1〜300)", "開始該当者番号の入力"), vbNarrow))
 lEnd = CLng(StrConv(InputBox("最後に印刷する該当者の番号を半角で入力してください(1〜300)", "終了該当者番号の入力"), vbNarrow))
 For lX = lStart To lEnd
  
 

345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.00 2017/10/04 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)