KenKen_SPのプロフィール

家庭教師が退学を薦めてきます というのは言い過ぎた感じですが・・・ 現在中３です。 僕の中学は所謂「進学校」っていう部類に入るものです。 上は東大から下を見ればキリがありません。 一貫した学校なので一応そのまま高校へは進学可能です。 また、中学から高校へは自分から辞めることはできません。 が、成績の悪い者は他校に転学していただくとうことになっています。 一応、僕はその射程に入ってはいないのですが、気を抜けば落ちます。 今のところはギリギリ大丈夫です。 昨年の１１月から家庭教師に来て貰っているのですが、一回目の先生は罵声が凄く（叱咤激励の域を超えて） 家族がとめに入るほどの凄さだった為、辞めて貰いました。 ２回目の先生（現在）は、現状をとどめなくズバッという人でよくも悪くも良いです。 先日の試験の結果を見て、その先生は 「このままだと、例え高校に上がれてもずっと下位層を徘徊してろくな大学に行けない 地元の高校に行くべきだ」と言います。 僕としては、中学の間一つも楽しい事が無く、苦しみに苦しんだ3年だったので他校に転学したいと思います。 親は仰天を隠していませんでしたが、自分の思いとしてはそうです。 前の先生も、今の先生も「君は頑張っているけれど、周りの同級生のレベルが高すぎて、これ以上は無理かも」と言います。 親としては、一生懸命受験して入った学校。見栄もありますよね。 ただ、この高校に進むよりも、転向していたほうが結果は良かったということだって可能性はあります。 「そんな奴どこの高校行っても同じだろ」と言われるかもしれませんが、今の中学が異常なだけでここ以外はどこもマシでしょう。 （校則が厳しく、未だに全員坊主。周りの生徒のやることが稚拙でうんざりです。男子校ですが刑務所みたいな感じでどうも馴染めません。今までに辞めた生徒も２０人ほどいます。） ただ、不登校は論外と言い聞かせ頑張って通いました。 表題についてですが、親から見たらこんな感じなんだろうなと言う事で付けました。 皆さんの意見を伺いたいです。 できれば年齢も教えてください。 この回答で人生を決める気はありませんが、一意見として伺いたいです。 家庭教師の年齢は６０代です。 去年会社を定年退職したと言ってました。 確かに学校で大学は決まりませんよね。 おっしゃるとおりだと思います。

Evaluateを使ってマクロに記述した関数に変数を使う方法 "=SUMPRODUCT((ISERROR(FIND(A1,B1:B100))=FALSE)*(C1:C100<=10))" という関数を普段使用しています。 ふとこの関数をマクロで実行させようと思い（理由はありません、思い付きです）、 Range("D1").Value = Evaluate("SUMPRODUCT((ISERROR(FIND(A1,B1:B100))=FALSE)*(C1:C100<=10))") としてみました。うまくいきました。 次に、 Dim i As Long For i = 1 To 5 Range("D" & i).Value = Evaluate("SUMPRODUCT((ISERROR(FIND(A1,B1:B100))=FALSE)*(C1:C100<=10))") next としてみました。ここで考えたのですが、 FIND(A1,B1:B100) この部分の「Ａ1」を「i」を使って（つまりRange("D" & i)に連動させて）変数にすることは出来るのでしょうか？ ご教示願います。 今回は単なる好奇心で普段使っている関数をマクロで表現できないかなと思った次第で、どうしても知りたい！必要だ!というわけではありません。 お暇なときにお願いします。

エクセルのチェックボックスとかについて エクセルのセル上にある複数のチェックボックスやラジオボタンを一括で消去する方法はありますか？ 1つづつケ消していく方法しか分からずに困ってます。

お世話になります。 VBAで作成しております。 VBAでマクロ実行中は、Excelのマウスやキーボードを使ってセル選択などを無効にしたいのですが、どのようにすればよいでしょうか？ ※Application.ScreenUpdatingはただ、画面の更新は止まっているのですが、セル選択などは裏で実行されているみたいで。。。 以上よろしくお願いします。

クリップボードの内容（数値もしくは文字列）を貼り付ける際、 アクティブなセルに値もしくはUnicodeテキストとして 貼り付けるコードを書こうとしています。 コピー＆ペーストする内容は1つのセルだったり、複数のセル範囲だったり、 はたまたExcel以外のアプリケーションからのコピーだったりします。 それぞれについては下記のように書けば希望通りになるのですが どちらであっても対応できるよう、 両方の機能を一つのプロシージャでまとめることは可能でしょうか？ ■エクセルシート上の値（セルや範囲）からの貼り付け Selection.PasteSpecial Paste:=xlValues ■外部ファイル（HTMLなど）からのUnicodeテキスト貼り付け ActiveSheet.PasteSpecial Format:="Unicode テキスト" これらは「マクロの記録」を参考にしたものですが、 Rangeオブジェクト用とWorksheetオブジェクト用に分かれているので クリップボードの種別判定？やエラー判定？のようなif文等による 何らかの分岐が必要なのかなと思い、自分なりに調べてみましたが、 具体的な方法がわからず困っております。 どちらにも対応できるコードにするにはどうすれば良いでしょうか？ どうぞよろしくお願いいたします。