Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8850 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【30715】シート上データの一括変換 ｓａｍａ 05/11/3(木) 22:14 質問[未読]
【30716】Re:シート上データの一括変換 とまと 05/11/3(木) 22:32 回答[未読]
【30719】Re:シート上データの一括変換 [名前なし] 05/11/3(木) 22:43 回答[未読]
【30744】Re:シート上データの一括変換 ｓａｍａ 05/11/4(金) 11:43 お礼[未読]
【30715】シート上データの一括変換
質問  ｓａｍａ  - 05/11/3(木) 22:14 -
引用なし
パスワード
   また、初歩的な質問で申し訳ありませんが、
Sheet上に下記のようなデータがあり、その特定列のみUserform上のコマンドボタンで一括変換させたいのですが、どのようにすればよいのでしょうか。

　　Ａ　　B　　C　　D　　E　　F・・・・
1　aabb　 20
2　ccdd　 26
3　eeff　 38
4　 ・　　
5　 ・　　50　　　
6　 ・　　30
．
．
．
この様な表がSheet上に作成されていまして、このＢ列のみを、20→21、26→27
38→39というように、その列の入力されている数値に１が加算されるような
一括変換を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上に作成されていまして、このＢ列のみを、20→21、26→27
>38→39というように、その列の入力されている数値に１が加算されるような
>一括変換をUserForm上のコマンドボタンで行えるようにしたいのですが、

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

1)C1セルに 1 を入力
2)C1セルをコピー
3)B列を選択
4)メニューの編集→ジャンプ→セル選択で定数を選択してOK
5)メニューの編集→形式を選択して貼り付け→演算のところの 加算 を
　選択してOK
6)C1セルの値を削除
【30744】Re:シート上データの一括変換
お礼  ｓａｍａ  - 05/11/4(金) 11:43 -
引用なし
パスワード
   [名前なし] さん,とまとさん
有難うございました。大変参考になりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8850 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free