[[20110810212057]]　『ＶＢＡでマイナスにしたい』（ボー君）　ページの最後に飛ぶ

『ＶＢＡでマイナスにしたい』（ボー君）

 誰か教えてください。
 C26:G32までの数値をマイナスにしたいのですが教えてください。

 作業用セルを使っていいなら、たとえばA1に -1 といれて、Ctrl/c(コピー)
で、G26:G32　を選択して　形式を指定して貼り付け、ダイアログで　乗算を選んでＯＫ。
これで、G26:G32　の数値が赤黒反転。これをマクロ記録。

 追伸) コードもアップしておく。

 Sub Sample()
    Dim c As Range
    Set c = Range("A1").SpecialCells(xlCellTypeLastCell).Offset(1, 1)
    c.Value = -1
    c.Copy
    Range("C26:G32").PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    c.Clear
    Set c = Nothing
 End Sub

 (ぶらっと)

 ぶらっとさん
 コードありがとう。
 だけど何か変なのですぅ・・・文字サイズが小さくなっているし、フォントも変わり、罫線も消えている・・・どうして？？？
 (ボー君)

 「形式を選択して貼付け」
 で
 「値」と「乗算」にチェック
 としてみてください。
 で、これをマクロの自動記録。
 (カリーニン)

 おまけの1行コード
 [Sheet1!C26:G32] = [Sheet1!C26:G32 * -1]
 (Gray)

 カリーニンさん
 ぶらっとさん
 思い通り出来ました。お手数をおかけしました。
 (ボー君)

コメント返信：

[ 一覧(最新更新順) ]

[[20110810212057]] 『ＶＢＡでマイナスにしたい』（ボー君） ページの最後に飛ぶ

[[20110810212057]]　『ＶＢＡでマイナスにしたい』（ボー君）　ページの最後に飛ぶ