Excel VBA質問箱 IV

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

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


8850 / 13646 ツリー ←次へ | 前へ→

【30715】シート上データの一括変換 sama 05/11/3(木) 22:14 質問[未読]
【30716】Re:シート上データの一括変換 とまと 05/11/3(木) 22:32 回答[未読]
【30719】Re:シート上データの一括変換 [名前なし] 05/11/3(木) 22:43 回答[未読]
【30744】Re:シート上データの一括変換 sama 05/11/4(金) 11:43 お礼[未読]

【30715】シート上データの一括変換
質問  sama  - 05/11/3(木) 22:14 -

引用なし
パスワード
   また、初歩的な質問で申し訳ありませんが、
Sheet上に下記のようなデータがあり、その特定列のみUserform上のコマンドボタンで一括変換させたいのですが、どのようにすればよいのでしょうか。

  A  B  C  D  E  F・・・・
1 aabb  20
2 ccdd  26
3 eeff  38
4  ・  
5  ・  50   
6  ・  30



この様な表がSheet上に作成されていまして、このB列のみを、20→21、26→27
38→39というように、その列の入力されている数値に1が加算されるような
一括変換をUserForm上のコマンドボタンで行えるようにしたいのですが、
また、行によっては未入力箇所があるので、入力されている数値のみを一括変換させたいのですが、どなたかご教授下さい。

【30716】Re:シート上データの一括変換
回答  とまと  - 05/11/3(木) 22:32 -

引用なし
パスワード
   こんばんは。
こんなことですか。

Dim c As Range
For Each c In Range("B1", [B65536].End(xlUp))
 If c.Value <> "" Then
  c.Value = c.Value + 1
 End If
Next

【30719】Re:シート上データの一括変換
回答  [名前なし]  - 05/11/3(木) 22:43 -

引用なし
パスワード
   >この様な表がSheet上に作成されていまして、このB列のみを、20→21、26→27
>38→39というように、その列の入力されている数値に1が加算されるような
>一括変換をUserForm上のコマンドボタンで行えるようにしたいのですが、

こんなやりかたもあります。
次の手順をマクロの記録で記録してみてください。

1)C1セルに 1 を入力
2)C1セルをコピー
3)B列を選択
4)メニューの編集→ジャンプ→セル選択で定数を選択してOK
5)メニューの編集→形式を選択して貼り付け→演算のところの 加算 を
 選択してOK
6)C1セルの値を削除

【30744】Re:シート上データの一括変換
お礼  sama  - 05/11/4(金) 11:43 -

引用なし
パスワード
   [名前なし] さん,とまとさん
有難うございました。大変参考になりました。

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