Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11070 / 13644 ツリー ←次へ | 前へ→

【18319】正数とマイナスの区別をするには モンキー 04/9/21(火) 13:50 質問[未読]
【18320】Re:正数とマイナスの区別をするには IROC 04/9/21(火) 14:01 回答[未読]
【18324】Re:正数とマイナスの区別をするには モンキー 04/9/21(火) 15:16 お礼[未読]
【18334】Re:正数とマイナスの区別をするには Kein 04/9/21(火) 16:47 発言[未読]

【18319】正数とマイナスの区別をするには
質問  モンキー  - 04/9/21(火) 13:50 -

引用なし
パスワード
   こんにちは。
正数とマイナスの数字が入り混じった列があります。
マイナスの数字だけを右隣の列に移したいのですが、
どうすればいいのかわかりません。
どなたかわかる方教えてください。
表は以下のような感じです。尚、A列の行数は
特定できません。
宜しくお願いします。
---------------------
  A  B  C
 100
 -500 
  200
 -600
---------------------
  A  B  C
 100
    -500     ←このようにしたいです。
  200
    -600
----------------------

【18320】Re:正数とマイナスの区別をするには
回答  IROC  - 04/9/21(火) 14:01 -

引用なし
パスワード
   ループ処理の場合です。


Dim i As Long

  For i = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 1).Value < 0 Then
      Cells(i, 2).Value = Cells(i, 1).Value
      Cells(i, 1).ClearContents
    End If
  Next i

【18324】Re:正数とマイナスの区別をするには
お礼  モンキー  - 04/9/21(火) 15:16 -

引用なし
パスワード
   IROCさんに教えて頂いた方法でやったら
ちゃんとできました!
ご指導ありがとうございました!

【18334】Re:正数とマイナスの区別をするには
発言  Kein  - 04/9/21(火) 16:47 -

引用なし
パスワード
   こんなコードでも出来ます。

With Range("A1", Range("A65536").End(xlUp)).Offset(, 1)
  .Formula = "=IF(SIGN($A1)=-1,$A1,"""")"
  .Value = .Value
  .SpecialCells(2, 1).Offset(, -1).ClearContents
End With

11070 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free