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

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


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

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

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

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

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

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

No.6 ベストアンサー 回答者： kenken0001 回答日時： 2002/02/26 17:47

余計だったかもしれませんが

下に各行のことを書きました。


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様のおかげで、無事に表が完成致しましたことを、心よりお礼申し上げます。
ありがとうございました。

お礼日時：2002/02/28 08:40

No.5 回答者： kenken0001 回答日時： 2002/02/24 19:37

＃３の具体例です。

下のマクロを使うとできます。


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



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

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

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

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

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

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

お礼日時：2002/02/24 21:56

No.4 回答者： kenken0001 回答日時： 2002/02/23 02:08

表の縦軸、横軸は何をあらわしていますか。

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

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

No.3 回答者： kenken0001 回答日時： 2002/02/23 01:59

考え方だけ説明します。

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

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

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

No.2 回答者： kenken0001 回答日時： 2002/02/22 07:42

ＶＢＡでもいいですか。

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

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

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

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

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

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

この回答へのお礼

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

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

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

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

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

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

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

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

お礼日時：2002/02/22 11:07

No.1 回答者： peso 回答日時： 2002/02/21 10:19

１つ目；

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

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

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

この回答へのお礼

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

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

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

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

お礼日時：2002/02/22 10:40