ニーズに合わせて生命保険を選ぼう

知ってる?こんな生命保険

Yahoo! JAPAN

  • ウェブ全体を検索
  • このサイト内を検索

印刷のツボ

独立行政法人 国立印刷局 - 官報・政府刊行物
国立印刷局は、印刷事業全般を行っています。 ... このページでは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

お役立ちリンク集 - 是非ご活用ください!

  • 私が探している光ファイバー 比較の優良サイト。光ファイバー 比較使えます!光ファイバー 比較の基本知識はこちらです。光ファイバー 比較
  • 得する情報コンタクトレンズ 大阪に関する情報を手に入れよう。コンタクトレンズ 大阪今すぐクリック!コンタクトレンズ 大阪に関して紹介します。コンタクトレンズ大阪といえば
  • WEBで楽々!名刺作成もっと知るなら名刺作成信頼できるサイト、名刺作成について考えてみよう名刺作成
  • よく聞く住宅ローン 控除の情報満載。住宅ローン 控除たまにはじっくり住宅ローン 控除情報はこちら。住宅ローン 控除について
  • 役立つ給与計算のお得なお話。給与計算今すぐクリック!給与計算に関して紹介します。安心給与計算コツ
  • 得する情報格安航空券のことならコチラ!格安航空券今すぐ確認!格安航空券の情報はこちらから確認できます。格安航空券

NEWS

本日のオススメ


Webサービス by Yahoo! JAPAN