Excel VBA質問箱 IV

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

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


68738 / 76734 ←次へ | 前へ→

【12525】Re:空白でないセルの文字を抽出し詰めて表示したい。
回答  ichinose  - 04/4/6(火) 20:57 -

引用なし
パスワード
   ▼さくら さん、Jakaさん、こんばんは。

>すみません。表示がずれて余計に分かりにくくなっているのに回答してくださいましてありがとうございます。
>できる限り詳しく説明しますので再度お願いします。

コード書くのと同じくらい質問内容をわかりやすく書くのも難しかったりするもんです。

調査範囲も狭そうなので以下のようなコードを作りました。

**

シート(Sheet1)の調査範囲(さくらさんの例でいうと、セルA1:D3)を
選択してその状態で以下のマクロを実行してみて下さい。


'=============================================================
Sub test()
  Dim rng As Range
  Dim idx As Long
  Dim jdx As Long
  Dim temp As Variant
  Set rng = Selection
  jdx = 0
  With Worksheets("sheet2")
   .Rows(1).Clear
   For idx = 1 To rng.Count
     With rng
      temp = .Cells((idx - 1) Mod .Rows.Count + 1, (idx - 1) \ .Rows.Count + 1).Value
      End With
     If temp <> "" Then
      .Cells(1, jdx + 1).Value = temp
      jdx = jdx + 1
      End If
     Next
   End With
End Sub

>また、途中で希望者が増えた場合にも対応したいのです。
これは、希望者名を入力後、再度、上記コードを同じようにして実行して下さい。

他にもシートのChangeイベントを使用する方法等がありますが、
上のコードのちょっとした変更で可能かと・・・。
0 hits

【12496】空白でないセルの文字を抽出し詰めて表示したい。 さくら 04/4/6(火) 13:31 質問
【12517】Re:空白でないセルの文字を抽出し詰めて表... Jaka 04/4/6(火) 17:22 回答
【12523】Re:空白でないセルの文字を抽出し詰めて表... さくら 04/4/6(火) 19:50 質問
【12525】Re:空白でないセルの文字を抽出し詰めて表... ichinose 04/4/6(火) 20:57 回答
【12526】それともユーザー定義関数にする? ichinose 04/4/6(火) 21:49 発言
【12534】Re:それともユーザー定義関数にする?(訂... ichinose 04/4/7(水) 7:37 発言
【12527】Re:空白でないセルの文字を抽出し詰めて表... とまと 04/4/6(火) 21:52 回答
【12545】Re:空白でないセルの文字を抽出し詰めて... さくら 04/4/7(水) 11:31 お礼
【12547】Re:空白でないセルの文字を抽出し詰めて... ichinose 04/4/7(水) 12:00 発言
【12548】Re:空白でないセルの文字を抽出し詰めて... さくら 04/4/7(水) 12:40 お礼

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