列幅、行の高さを指定するマクロ

元マクロ初心者(今はほとんど忘れています)です。

列幅、行の高さを変更するマクロを以前作りました。

セルに指定する列幅を入力するのですが、
最近１００以上の値の時はスキップされることに気づきました。
１００以上の値でも処理されるようにするにはどうすればよいでしょうか。


Sub 列幅変更マクロ()
'
' Macro1 Macro
' マクロ記録日 : 2004/1/31 ユーザー名 :
' 列幅の変更
' Keyboard Shortcut: Ctrl+l
'
If MsgBox("→：列幅を変更します。右の方向にセル内の数値に従って処理しています。一番右のセルに半角で「@」を終わりの印として入力してください。", vbOK) = 1 Then
Do Until ActiveCell.Value = "@"
If ActiveCell.Value < 100 Then
If ActiveCell.Value > 0 Then
Selection.ColumnWidth = ActiveCell.Value
End If
End If
ActiveCell.Offset(0, 1).Select
Loop
End If
End Sub
Sub 行の高さ変更マクロ()
'
' Macro2 Macro
' マクロ記録日 : 2004/2/1 ユーザー名 :
' 行の高さ変更
' Keyboard Shortcut: Ctrl+p
'
If MsgBox("↓：行の高さを変更します。下の方向にセル内の数値に従って処理しています。一番下のセルに半角で「@」を終わりの印として入力してください。", vbOK) = 1 Then
Do Until ActiveCell.Value = "@"
If ActiveCell.Value < 100 Then
If ActiveCell.Value > 0 Then
Selection.RowHeight = ActiveCell.Value
End If
End If
ActiveCell.Offset(1, 0).Select
Loop
End If
End Sub

No.4 ベストアンサー 回答者： taocat 回答日時： 2006/04/09 10:05

おはようございます。

＞我ながら質問が低レベルなことに気づいてショックを受けています。

使わなければ忘却の彼方、それは道理。
ショックを受けるほどのことではないのでは？！。。(^^;


で、入力規則。
---------------------------------------------
入力規制をするセル：　A1～E1
入力を許可する値　：　 10～200　と　@

●A1～E1　をドラッグして選択

●メニューバーの「データ」　＞　「入力規則」

（１）表示される入力規則ダイアログの上部の「設定」タブをクリック

表示される画面の
「入力値の種類」ボックスの▼をクリックして、「ユーザー設定」を選択
「数式」ボックスに、　=OR(And(A1>=10,A1<=200),a1="@")　　と入力


（２）上部の「エラーメッセージ」タブをクリック（これはしなくてもよい）

入力規制にかかったときに表示するメッセージを入力

---------------------------------------------------------------------------

それから今回のは、数値範囲と文字（＠）のチェックでしたので
数式がちょっと複雑になりましたが、単に数値範囲（10～200）であれば
「入力値の種類」ボックスで、「整数」を選択すると簡単にできます。
入力規則は入力値のチェックにとても便利ですので色々試してみてください。

以上です

この回答へのお礼

いろいろと教えて戴いてありがとうございます。
入力規制は、是非使ってみたいワザです。

お礼日時：2006/04/14 22:21

No.3 回答者： taocat 回答日時： 2006/04/08 11:22

再びこんにちは。

No2さんご指摘のとおりセル幅は255文字になってますし
折角最大文字のチェックもされてますので

If ActiveCell.value < 100 then
　を
If ActiveCell.value < 256 then

とした方がいいですね。

また、入力規則でもいいし、マクロでもいいし、
値の入力時にチェックするとより使いやすいものになりますね。

何れにしろ削除などと荒っぽいレス申し訳ありませぬ。(^^;;
以上です。

この回答への補足

No.1さん、No.2さん、さっそくの回答をありがとうございます。

我ながら質問が低レベルなことに気づいてショックを受けています。
If ActiveCell.Value < 100 Then
の１００にも気づかないなんて。。

このマクロを書いたのはエクセル９７の時ですが
そのときの制限が１００だったということでしょうか。
現在はエクセル２００３ですが、
試してみたら列幅は２５５、高さは４０８.７５でした。
マクロの中の１００の代わりにこれらの数を入れたらよいのでしょうか。

>また、入力規則でもいいし、マクロでもいいし、
値の入力時にチェックするとより使いやすいものになりますね。

入力規制について説明していただけないでしょうか。

再び、低レベルでごめんなさい。

マクロのことはすっかり忘れたgabo2gouより

補足日時：2006/04/08 17:53

No.2 回答者： kokorone 回答日時： 2006/04/08 09:58

If ActiveCell.Value < 100 Then

が原因ですが、Ｅｘｃｅｌの制限として、２５５までと
なっているようですね。

No.1 回答者： taocat 回答日時： 2006/04/08 09:51

こんにちは。

両方とも●のコードを削除してください。

----------------------------------------------

●If ActiveCell.Value < 100 Then

　　If ActiveCell.Value > 0 Then
　　Selection.ColumnWidth = ActiveCell.Value
　　End If

●End If

---------------------------------------------

以上です。