[[20070226195622]]　『if関数』でできるのでしょうか（悩み君）　ページの最後に飛ぶ

『if関数』でできるのでしょうか（悩み君）
（Ａ１　Ａ２同じ文字の場合はＢ列から印刷。違う場合はＡ列から印刷したいのです。印刷のマクロはなんとかできたのですが、）

　　Ａ　　Ｂ　　Ｃ

１さくま

２さくま

マクロを２つ作ってあります。Ａ列から印刷するのは、”マクロＡ”　Ｂ列から印刷するのは”マクロＢ”とします。
Ａ１とＡ２に同じ文字が入っている場合は　”マクロＢ”が動き違う文字が入っている場合は”マクロＡ”が動くようにできるのでしょうか？

 if関数でなんとかならないのかと思ったのですが、無理でしょうか？
よろしくお願いします。

それとマクロを作ったり消したりしていたら、マクロの何も載っていないモジュールができてしまったのですが、これを消すことはできますか？だんだんシートばかり増えてすごく多くなってきてしまいました。40ぐらいあります。半分は何も載っていません。

 マクロA、マクロBを１つにして
Celect Caseで
A1=A2 ならBマクロの印刷範囲を
A1≠A2 ならAマクロの印刷範囲を実行する
ようにすれば？
　
 >マクロの何も載っていないモジュールができてしまったのですが、
 >これを消すことはできますか？だんだんシートばかり増えてすごく多くなってきてし
 >まいました。
モジュールを消すなら↓
（0026）マクロを消してもマクロの警告
http://www.excel.studio-kazu.jp/tips/0026/

 シートを削除なら
要らないシートの最初をクリック
Shiftを押しながら最後のシートをクリック
シート見出しを右クリック
削除
　　　　　　　　　　　　　　　　　　　　　　　　　　(oni)

ありがとうございました。シートは削除できました。

Celect Caseで
A1=A2 ならBマクロの印刷範囲を
A1≠A2 ならAマクロの印刷範囲を実行する
ようにすれば？　

ということなのですが、実際に動かしてのマクロの登録ならできるのですが、それ以のことはわからないので　もうすこし具体的に教えていただけませんでしょうか？

 >実際に動かしてのマクロの登録ならできるのですが
↑マクロの記録のことですか？
私も良く似たものですので、とりあえず「動けばいいやマクロ！」
下記を参考に
MsgBox の所を、実際の印刷範囲にかえて下さい。
　
 Sub nayami()
  Dim nayami As Integer

   If Range("a1").Value = Range("a2").Value Then
      nayami = 1
   Else
      nayami = 0
   End If

  Select Case nayami
   Case 1
       MsgBox "雲一つ無い晴天に仕事だぁ～～！！"
   Case Else
       MsgBox "今日は寒い～～！！"
   End Select

 End Sub　　　　　　　　　　　　　　　　　　　　　　　　　　(oni)

ありがとうございます。なんとかできました。
メッセージの出方も教えていただいたので、それを使って”しばらくお待ちください”と入れてみました。これも使っていきたいと思います。

コメント返信：

[ 一覧(最新更新順) ]

[[20070226195622]] 『if関数』でできるのでしょうか（悩み君） ページの最後に飛ぶ

[[20070226195622]]　『if関数』でできるのでしょうか（悩み君）　ページの最後に飛ぶ