![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
下記のマクロを実行すると、作業シートの指定セル部分に文字があれば、自動で行調整が出来ます。
このマクロを指定シートの指定セル値に変更出来る方法を教えてください。
指定シート名「質疑」指定セル値同じく「Range("C26:C60")」です。
現状のマクロ
Sub 行調整()
Dim r As Range
Dim tmp, n As Integer, i As Integer
For Each r In Range("C26:C60")
If WorksheetFunction.CountIf(r.Resize(, 4), "<>") > 0 Then
r.Rows.AutoFit '折り返し設定とフォントサイズ
For i = 0 To 3
If InStr(r.Offset(, i), vbLf) > 0 Then
If n < UBound(Split(r.Offset(, i), vbLf)) Then
n = UBound(Split(r.Offset(, i), vbLf)) + 1
End If
End If
Next
If n > 0 Then
tmp = r.RowHeight
r.RowHeight = tmp * n '改行コード Alt+Enter
n = 0
End If
Else
r.RowHeight = 27
End If
Next
End Sub
以上となります。
宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロとシートの保護について教えてください。 1 2022/10/18 08:36
- Visual Basic(VBA) マクロについて教えてください。 下記のマクロは以前教えて頂いたマクロです。 マクロを実行すると 指定 6 2024/01/17 17:50
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/03/27 14:27
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/03/26 18:09
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/11 08:33
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/09/21 13:01
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
左右の表のキー位置を合わせたい
Visual Basic(VBA)
-
-
4
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
5
エクセルVBAにて =A1=B1とすれば A1とB1のセル内容が一緒だった場合 TRUE 違っていれ
Visual Basic(VBA)
-
6
VBAなくなるの?
Visual Basic(VBA)
-
7
VBAを使用した時間管理
Visual Basic(VBA)
-
8
ExcelのVBAコードについて教えてください。
Visual Basic(VBA)
-
9
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
10
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
11
Word VBA MSGBOX 内で降順表示
Visual Basic(VBA)
-
12
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
13
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
14
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
15
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
16
WORD VBA プログラム修正をお願いします。
Visual Basic(VBA)
-
17
Excelはなんで先頭の0を消すんですか?しかもCSVとかもなんでそもそも勝手に元のデータ変えるのに
Excel(エクセル)
-
18
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
19
VBA一覧取得 再投稿
Visual Basic(VBA)
-
20
【ExcelVBA】値を変更しながら連続でPDFを作成し,それらを結合した状態で出力するコード
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel】マクロでページを追加...
-
エクセルファイルを値でのみし...
-
VBAで行コピーして挿入
-
Excelでマクロ実行中に画面を固...
-
エクセル連番自動印刷について
-
グラフ要素のセルを参照したい...
-
VBA Shapes コピーと名前
-
シート名を記入する
-
別のexcelのデータをコピペするVBA
-
エクセルのマクロについて教え...
-
エクセル マクロ写真帳に一括で...
-
秀丸で文字列範囲を選択したら...
-
セルに入力するたびにマクロを...
-
エクセルファイルの回数期限の...
-
VBAマクロでCSV出力
-
エクセル 図形の寸法を取得したい
-
エクセルVBAで納期管理システム...
-
VBAで保存しないで閉じると空の...
-
Excel マクロの編集がグレーに...
-
【Excel VBA】マクロでExcel自...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA Shapes コピーと名前
-
Excelでマクロ実行中に画面を固...
-
エクセルファイルを値でのみし...
-
エクセル連番自動印刷について
-
エクセル マクロ写真帳に一括で...
-
エクセルのマクロについて教え...
-
【Excel】マクロでページを追加...
-
セルに入力するたびにマクロを...
-
EXCEL VBA 他のアプリケーショ...
-
VBAで行コピーして挿入
-
エクセルVBAで納期管理システム...
-
EXCEL 行番号や列番号が選択で...
-
ブックの共有でVBAエラー
-
シート名を記入する
-
【ExcelVBA】マクロブックを通...
-
エクセル 図形の寸法を取得したい
-
VB.NETによるEXCELの行挿入
-
ExcelのVBAコードについて教え...
-
エクセルVBA MSGBOXを30秒間出...
-
エクセルに写真を挿入するマ...
おすすめ情報
申し訳ありません。
教えて頂いたコードを設定しますとの実行エラー№9が出てしまい
インデックスが有効範囲にありません。と表示され
コードのFor Each r In Sheets("質疑").Range("C26:C60")
が黄色く変色して上手くマクロを実行できませんでした。
解決方法を教えてください。
宜しくお願い致します。