Excel VBA質問箱 IV

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

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


51693 / 76732 ←次へ | 前へ→

【29901】Re:オートフィルタ
発言  とまと  - 05/10/15(土) 23:32 -

引用なし
パスワード
   こんばんは。

オートフィルタを直接その列でかけるのではなくて
作業列をつくってその作業列にたいして実行すれば
できるのではないかと思います。
数式で国語の列が空白なら数学の列
数学が空白なら社会の列という具合の数式を埋め込みます。
以下サンプルです。

Sub test()

With Sheets(wsn)
 .Columns("F").Clear
 rowA = .UsedRange.Rows.Count
  With .Range("F2:F" & rowA)
   .Formula = "=IF(B2<>"""",B2,IF(C2<>"""",C2,IF(D2<>"""",D2,E2)))"
   .Value = .Value
   .NumberFormatLocal = Range("B2").NumberFormatLocal
  End With
End With


End Sub
0 hits

【29897】オートフィルタ ハッチ 05/10/15(土) 21:06 質問
【29899】Re:オートフィルタ ponpon 05/10/15(土) 21:32 発言
【29901】Re:オートフィルタ とまと 05/10/15(土) 23:32 発言
【29902】Re:オートフィルタ とまと 05/10/15(土) 23:33 発言
【29903】Re:オートフィルタ ponpon 05/10/16(日) 0:12 発言
【29905】Re:オートフィルタ Hirofumi 05/10/16(日) 0:30 回答
【29906】Re:オートフィルタ とまと 05/10/16(日) 0:38 発言
【29907】Re:オートフィルタ Hirofumi 05/10/16(日) 9:46 回答
【29910】Re:オートフィルタ yasu 05/10/16(日) 10:50 発言
【29916】Re:オートフィルタ ハッチ 05/10/16(日) 14:12 質問
【29919】Re:オートフィルタ Hirofumi 05/10/16(日) 15:05 回答
【29997】Re:オートフィルタ ハッチ 05/10/17(月) 21:14 お礼
【29928】Re:オートフィルタ とまと 05/10/16(日) 18:22 発言
【29929】Re:オートフィルタ kobasan 05/10/16(日) 18:56 発言
【29931】Re:オートフィルタ とまと 05/10/16(日) 20:58 回答

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