罫線を自動的に引く!!! できたら最高なのですが・・・

質問

１つ目；
「Ｅ４からＯ２７」と「Ｑ４からＡＡ２７」と「Ｅ３１からＯ５４」と「Ｑ３１からＡＡ５４」が空白だったら、右下から左下に向かう斜線を「自動的に」引くことはできますか？

２つ目；
「ＡＤ４」に数値（例えば８）を入力したら、
Ｅ４から１と始まってＦ４に２，Ｇ４に３，Ｈ４に４，Ｉ４に５，Ｇ４に６，Ｋ４に７，Ｌ４に８，Ｍ４は空白，Ｎ４は空白，Ｏ４は空白と「自動的に」入力させることはできますか？
※よって、ＡＤ４には入る数値は、必ず１１以下です。

同じく、「ＡＥ４」に数値（例えば４）を入力したら、Ｑ４から１と始まってＲ４に２，Ｓ４に３，Ｔ４に４，Ｕ４は空白，Ｖ４は空白，Ｗ４は空白，Ｘ４は空白，Ｙ４は空白，Ｚ４は空白，ＡＡ４は空白

同じく、「ＡＦ４」に数値（例えば５）を入力したら、Ｅ３１から１と始まってＦ３１に２，Ｇ３１に３，Ｈ３１に４，Ｉ３１に５，Ｊ３１は空白，Ｋ３１は空白，Ｌ３１は空白，Ｍ３１は空白，Ｎ３１は空白，Ｏ３１は空白

同じく、「ＡＧ４」に数値（例えば５）を入力したら、Ｑ３１から１と始まってＲ３１に２，Ｓ３１に３，Ｔ３１に４，Ｕ３１に５，Ｖ３１は空白，Ｗ３１は空白，Ｘ３１は空白，Ｙ３１は空白，Ｚ３１は空白，ＡＡ３１は空白

３つ目；
既に作成してしまった表なのですが、項目（現在Ｃ列に入力しました）を「あいうえお順」に「行ごと」並べ替えることはできますか？

つたない表現で申し訳ありません。
初心者です。
安易なご解説をいただけたら幸いです。
よろしくお願い致します。

回答No.6

kenken0001 · ベストアンサー

余計だったかもしれませんが
下に各行のことを書きました。

Sub 斜め罫線を描く()

Application.ScreenUpdating = False
画面のチラツキ防止？ →◎です。

Range("E4:O27,Q4:AA27,E31:O54,Q31:AA54").Select
検査する４表を選択

選択範囲 = Selection.Address
選択した４表全部を配列として、変数「選択範囲」に取り込む
(たぶん、E4,E5,E6・・・たくさん入ってて、アタマから読むカンジ？)

For Each 選択セル In Range(選択範囲)
取り込んだ「範囲」を、一つずつ取り出す（最後まで）

If 選択セル.Value = "" Then
セルの内容が空("")だったら以下の処理をする

選択セル.Borders(xlDiagonalUp).Weight = xlThin
これが「斜線を引け！」命令？ →◎です。

End If
セルの検査終了

Next
次のセルへ（For～Next間を繰り返す、次のセル、次のセル・・）

Application.ScreenUpdating = True
チラつき制御解除

End Sub

Sub 斜め罫線を消す()

Application.ScreenUpdating = False
チラつき制御開始

選択範囲 = Selection.Address
選択ずみの範囲(マクロ起動前のアクティブなセル範囲)を
全部取り込み

For Each 選択セル In Range(選択範囲)
各セルを順番に呼び出す

選択セル.Borders(xlDiagonalUp).LineStyle = xlNone
これが「斜線を消しなさい！」命令？ →◎です。

Next
For、Next間を、選択したセルの最終セルまで繰り返す

Application.ScreenUpdating = True
解除

End Sub

エラそうに自分で作ったみたいなカオしてますが
本で見たものをそのままを引用なので・・。
加えて、今回は＃１の方の計算式がとても良かったので
半分以上＃１さんのおかげです。
なのでわたしは、そのようなお言葉を頂けるような
ことはしていません。
今回のことで私自身が新しいことを学ぶことができたので
とても感謝しています。（手数？とんでもありません）
いろいろお忙しいようですがガンバってください。
＃１さんには直接お礼できませんが、よろしくお伝えください(感謝)。
爆笑ですか、そうですね（爆）。ではでは。

お礼

ご解説を拝見したときは、「ご丁寧さ」と「謙虚さ」に頭の下がる思いでした。
この質問・ご回答は、私の永久保存版となりました。
フロッピーにて、大切に保存させていただきました。

私も何度か質問者の方へ回答させていただきましたが、
自分は『本当に相手の方のために、精一杯の知恵を提示した回答をしていたのか』と、恥ずかしくなりました。

今回、kenken0001様のご回答に触れることができ、Microsoftアプリケーションのみならず、
自分の回答方法に疑問が持てたことは、たいへん有意義でした。

他人のために時間を割くということ・・・
その中で，精一杯の知識を提示するということ・・・
文字のみで説明することの難しさ・・・
表現・回答方法・・・
先に回答された方への配慮・・・

多くのことを学ぶことができ、感謝でいっぱいです。
本当にありがとうございました。

＞いろいろお忙しいようですがガンバってください。
私も頑張ります。
kenken0001様も お体に留意され、ご活躍ください（←どこで？　爆）。
またお会いできる機会がありますことを、楽しみにしております。

peso様，kenken0001様のおかげで、無事に表が完成致しましたことを、心よりお礼申し上げます。
ありがとうございました。

回答No.5

kenken0001

＃３の具体例です。
下のマクロを使うとできます。

Sub 斜め罫線を描く()

Application.ScreenUpdating = False
Range("E4:O27,Q4:AA27,E31:O54,Q31:AA54").Select
選択範囲 = Selection.Address
For Each 選択セル In Range(選択範囲)
If 選択セル.Value = "" Then
選択セル.Borders(xlDiagonalUp).Weight = xlThin
End If
Next
Application.ScreenUpdating = True
End Sub

消す場合は下です。

Sub 斜め罫線を消す()
Application.ScreenUpdating = False
選択範囲 = Selection.Address
For Each 選択セル In Range(選択範囲)
選択セル.Borders(xlDiagonalUp).LineStyle = xlNone
Next
Application.ScreenUpdating = True
End Sub

描く場合は、固定の範囲を、
消す場合は、直前に範囲指定していた範囲(Activeな範囲)
を処理します。
どちらも同じですが、
選択範囲をFor～ Next文で１セルずつ
順番に処理しています。

＃３は考え方のみで省略しすぎだったので
今回上記の例を書きました。

お礼

完璧です。感激の嵐・・・
こんなに「スバラシイ技術」をいただけた私は、かなりの幸せ者です。
本当にありがとうございました。　<(_ _)>

Sub 斜め罫線を描く()

Application.ScreenUpdating = False・・・画面のチラツキ防止？？？(1)
Range("E4:O27,Q4:AA27,E31:O54,Q31:AA54").Select

選択範囲 = Selection.Address

For Each 選択セル In Range(選択範囲)

If 選択セル.Value = "" Then
選択セル.Borders(xlDiagonalUp).Weight = xlThin・・・これが「斜線を引け！」命令？？？
End If

Next

Application.ScreenUpdating = True

End Sub

Sub 斜め罫線を消す()
Application.ScreenUpdating = False
選択範囲 = Selection.Address
For Each 選択セル In Range(選択範囲)
選択セル.Borders(xlDiagonalUp).LineStyle = xlNone・・・これが「斜線を消しなさい！」命令？？？
Next
Application.ScreenUpdating = True
End Sub

☆私が１００％理解できたのは、下の「セル消去」だけです（喜びの泣き）。
Sub セル消去()
Range("E4:O27,Q4:AA27,E31:O54,Q31:AA54") = ""
End Sub

３月１１日に、マクロ操作 社内研修２回目があります。
ドイツ語を『読・ま・さ・れ・る』より怖いー。
「Ａさん！　１行目を音読して訳しなさい！」ときます。
「サブ　セル消去．．．えーっと、セル消去しなさいの命令を始めましょう？ですか？？？」
というような感じです（イヤだー。できないー。）

使いこなせるようになったら、楽しいでしょうね。
こんなに人に喜ばれる技術を持っていらっしゃるなんて、うらやましい限りです。
２０ポイントしか発行できないことが、本当に悔やまれます。

３月１１日までに，少しでもまともな発音ができるよう、これから辞書と格闘いたします。

これからも、スバラシイ技術で皆さんを助けてあげてくださいね。

※２月２８日に、ポイント発行の上，締め切らせていただきます。
　もしお時間を割いていただけるようでしたら、私がプラスしましたコメントが合っているか・・・教えていただいて良いですか？

☆こんなにお手数をおかけした質問者、過去にいました？（苦笑・・・いえいえ、爆笑でお別れしましょう）

回答No.4

kenken0001

表の縦軸、横軸は何をあらわしていますか。
また入力データ（１１以下の）が
２の時、１０の時ではいれるデータは変化しますか。
固定で１，２，３，４，５，６，空白・・ですか。
（１，２，３・・はどんな意味ですか）

１１以下の数字を入れるのはどんな時ですか。
斜線を引くのはどんな時ですか。
処理内容、処理手順が分かればもう少し
いいものができるかもしれません。

回答No.3

kenken0001

考え方だけ説明します。

質問１は全セルを取得して
各セルに入力があるかを判定します。
全てなければ斜線を描く、
１つでもあれば描かない、
という処理をします。

質問２はワークシートイベントを使います。
セルに変更があったらデータ入力する。
ただ全てのセルが対象なので
特定セルに変更があったかを判断する
処理を加えます。
どのセルかの判定は
Select Caseで処理を分けます。

少し要約しすぎですが
考え方としてはこれでできます。

回答No.2

kenken0001

ＶＢＡでもいいですか。
１、２とも可能です。
１の斜め線は、表に対して１つ、４本の斜線ですか。
セル一つひとつにですか。
図形の斜線ですか、スラッシュ"／"ですか。
線を消すことがありますか。
(リセット機能は必要ですか)

ちなみに具体的には何をするものですか。
違う方法もあるかもしれません。

３は「並べ替え」ではどうですか。

並べ替えたい表を選択して
データ－並べ替えを選んで
行をソートなら、Ｃ列を最優先キーに指定してＯＫ
＊ダメなら、データ－並べ替えで
オプションで「ふりがなを使わない」にして実行

＊列を並べ替えもできます。

１，２は内容により、再度回答したいと思います。

お礼

ＶＢＡという機能は、初心者には無理かも？とのご回答を、下記の方にいただきました。
私に使いこなせるのでしょうか？？？（半泣）
でも、もしよろしかったら、是非教えてくださいね。

１つ目；
斜線は、セル１つ１つを想定しておりました。
しかし、表に対して１つの線が描けるなら（合計４つ）、そちらでも結構です。
簡単な方で結構です。あまりこだわりません。

＞図形の罫線，スラッシュ”／”か・・・
回答なっていないようでしたら、再度尋ねていただきたいのですが、
「塗りつぶしの色」というアイコンの隣にある、「罫線」というもので描いていただけると助かります。

＞線を消すことがありますか・・・
質問に書きました「数を入力する欄」が、何度か変更されることを想定しております。
したがって、「あります」との回答でよろしいのでしょうか。

＞ちなみに具体的には何をするものですか・・・
下記の方へのお礼にも書かせていただいたのですが、通信制大学と資格取得スクールの講義を受けております。
「単位数」や「科目ごとの回数」，「講義の日」，「論文提出日」，「評価」などを記録しております。
同じ科目をダブって聞かなくてもすむように，また、今月優先的に聞かなくてはならない講義はどちらか，など、いろいろです。
うまく説明できなくて申し訳ないのです。
イメージ的には「大学で受講する講義が１回増えれば、スクールで受講する同じ科目の講義は１回減る」・・・そのような感じでしょうか。

３つ目のご回答については、これからやってみます。

質問しておきながらで失礼は十分承知ですが、今月（今週）は、特に講義があちこちで忙しいです。
お礼やポイント発行、締め切りが遅くなるかもしれませんので、許してくださいね。
２月２４日の朝までには、１度は覗くように致します。

では、再度のご回答をお待ちしております。
よろしくお願いいたします。

回答No.1

peso

１つ目；
　ＶＢＡを使えば出来そうですけれど、初心者でＶＢＡはツラいですねぇ・・・

２つ目；
　こっちは意外と簡単に出来そうです。
　まず、Ｅ４に =IF(AND(ISNUMBER(AD4),AD4>0),1,"")
　次に、Ｆ４に =IF(AND(ISNUMBER(E4),E4<$AD4),E4+1,"")
　あとはＦ４をＯ４までへコピーすれば可能です。
　次もこれと同じ様な感じですね。

３つ目；
　Ｃ列にカーソルを置いて
　　Ａ
　　Ｚ↓
　というアイコンで出来ます。
　※これでうまくいかない場合もあります。

お礼

１つ目；ＶＢＡという機能は、初心者には無理なのですね？？？

２つ目；試してみますね。
　　　　実は、まだ試していないのです。
　　　　昼間は会社員・夜は通信制大学の学生＋資格取得のスクール生で、今月はちょっと忙しいのです（泣）。

３つ目；残念ながら、うまく行かなかったのです（ウルウル）。

※２つ目をしっかり勉強させて頂きます。
　早速のご回答をありがとうございました。