独立行政法人 国立印刷局 - 官報・政府刊行物
国立印刷局は、印刷事業全般を行っています。 ... このページではjavascriptを使用しています。 ホーム サイト内検索 サイトマップ お問い合わせ先 ENGLISH テキスト版. ホーム > 官報・政府刊行物 ...
http://www.npb.go.jp/ja/books/index.html
印刷用ページ (製版作業員) - Job Job World
製版の主な仕事には、写真を印刷用の4色に分解する「写真分解」、4枚の製版フィルムを作成する「集版」、そして試し刷りをおこなう「校正刷り」があります。 ... 高校を卒業、または、専門学校や職業訓練校などで基礎的な知識を習得して、印刷 ...
http://www.shigotokan.ehdo.go.jp/jjw/servlet/gaisetsu/insatsu?jobID=0000331&before=WhatText
エクセルマクロに詳しい方、教えて下さい。宜しくお願いします。
下記の構文を次の様に変えたいのですが、どこを直せばよいですか?
From が R3C6
TO が R3C9
両方が入っている場合はその間
FROMのみが入っている場合はそれ以降
TOのみが入ってる場合はその数字まで
を印刷するように変える。
Sub 一括出力()
'一括出力 Macro
Dim PrintSheet As Worksheet
Dim DataSheet As Worksheet
Dim r As Long
Set PrintSheet = Worksheets("A")
Set PrintSheet = Worksheets("B")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
r = 9
Do While DataSheet.Cells(r, 2).Value ""
If DtaSheet.Cells(r, 1).Value >= 1 And DataSheet.Cells(r, 1).Value ""Then
PrintSheet. Cells(6, 47).Value = DataSheet.Cells(r, 1). Value
PrintSheet. Calculate
PrintSheet. PrintOut
Debug.Print r, DataSheet.Cells(r, 1).Vlue
r = r + 1
Else
r = r + 1
End If
Loop
.
End Sub
http://q.hatena.ne.jp/1215222879
情報提供: Yahoo!知恵袋Web API