□ 戻る　 □一般操作のサロン　 □ 使用方法　 □ 新着記事 　□ 新規に質問する！　 □ トピック一覧　 □ 検索 　□ 過去ログ
[ 親トピックをトピックトップへ ]
このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->　 図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決！！ありがとうございました！ 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜！ Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内)　

このトピック参照回数 :
Re[4]: 空白を数えない方法

    [196224] Re[4]: 空白を数えない方法-

    ■解決！！ありがとうございました！ / 記事引用/メール受信=OFF■

    □投稿者/ 小堺 -(2024/05/20(12:58))
    □U R L/ 
      マナさん

うまくいきました。

＞
では、別案で。
For Each c In .SpecialCells(xlCellTypeConstants)

SpecialCells(xlCellTypeConstants)

ここがポイントですか。

勉強になりました。

有難うございます。


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒Windows 10
      Version⇒Excel 2010
      ++++++++++++++++++++



    [196223] Re[3]: 空白を数えない方法-

    ■記事引用/メール受信=OFF■

    □投稿者/ マナ -(2024/05/20(12:41))
    □U R L/ 
      > どのようにするか
> いまいち分かりません。

では、別案で。
For Each c In .SpecialCells(xlCellTypeConstants)


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [196222] Re[2]: 空白を数えない方法-

    ■記事引用/メール受信=OFF■

    □投稿者/ 小堺 -(2024/05/20(10:01))
    □U R L/ 
       マナさん
ご指導すいませんが、
どのようにするか
いまいち分かりません。

＞空白セルでない場合
＞IF c.Value<>"" Then


この部分を書き換えするということですか、

For Each c In .Cells
            dic(c.Value) = dic(c.Value) + 1
        Next


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



      ++++++++++++++++++++
      OS      ⇒Windows 10
      Version⇒Excel 2010
      ++++++++++++++++++++



    [196221] Re[1]: 空白を数えない方法-

    ■記事引用/メール受信=OFF■

    □投稿者/ マナ -(2024/05/19(21:39))
    □U R L/ 
      空白セルでない場合
IF c.Value<>"" Then


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他



    [196220] 空白を数えない方法-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ 小堺 -(2024/05/19(19:20))
    □U R L/ 
      すいません
ご指導お願いいたします。

共通数字の番号と共通数字の回数
取得するVBA

Sub test()

Worksheets("Sheet5").Cells.Delete  'シート起点クリアー
  Worksheets("Sheet5").Select

    Set dic = CreateObject("scripting.dictionary")
    

   With Range("A1").CurrentRegion
    
        For Each c In .Cells
            dic(c.Value) = dic(c.Value) + 1
        Next
        
        With .Offset(, .Columns.Count + 1).Resize(dic.Count, 4)
            .EntireColumn.ClearContents
            .Columns(1).Value = WorksheetFunction.Transpose(dic.keys)
            .Columns(2).Value = WorksheetFunction.Transpose(dic.items)
            .Sort Key1:=.Columns(2), Order1:=xlDescending
        End With
        End With
 End Sub


（例１）

行/列



このトピック内容の全ページ数 / [0]
- Child Forum -
Edit:ゆう-Ｇ