Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11072 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   こんにちは。
正数とマイナスの数字が入り混じった列があります。
マイナスの数字だけを右隣の列に移したいのですが、
どうすればいいのかわかりません。
どなたかわかる方教えてください。
表は以下のような感じです。尚、Ａ列の行数は
特定できません。
宜しくお願いします。
---------------------
　　Ａ　　Ｂ　　Ｃ
　100
　-500　
　 200
　-600
---------------------
　　Ａ　　Ｂ　　Ｃ
　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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11072 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free