Musaffah の回答履歴

以下のプログラムを書きました。 以下のプログラムではA1～C108を１ページ、Ａ１０９～Ｃ２１６を２ページ目、Ａ２１７～Ｃ３２５を３ページ目として印刷するようにページ設定したいのですが、うまく動きません。 どうしてでしょうか？ わかるかたがいたら教えていただけないでしょうか？ よろしくお願いします。 Sub 改ページ設定() ActiveWindow.View = xlPageBreakPreview '改ページプレビュー Set ActiveSheet.HPageBreaks(1).Location = Range("C109") '水平改ページ位置1を変更 Set ActiveSheet.HPageBreaks(2).Location = Range("C217") '水平改ページ位置2を変更 Set ActiveSheet.HPageBreaks(3).Location = Range("C326") '水平改ページ位置2を変更 End Sub

２０代の学生です。 人の目を見たり、見ながら話をするのが苦手です。 一度チャレンジしてみたのですが、途中で自分が見透かされているような気がして、すごく恥ずかしくなってしまい挙動不審になってしまったので、それ以来人の目を合わせることはしていません。 何かの面接とかなら普通に目を合わせることはできるのですが、何気ない日常の中ではできません。 アドバイスなどございましたら、よろしくお答えください。

以下のプログラムを書きました。 以下のプログラムではA1～C108を１ページ、Ａ１０９～Ｃ２１６を２ページ目、Ａ２１７～Ｃ３２５を３ページ目として印刷するようにページ設定したいのですが、うまく動きません。 どうしてでしょうか？ わかるかたがいたら教えていただけないでしょうか？ よろしくお願いします。 Sub 改ページ設定() ActiveWindow.View = xlPageBreakPreview '改ページプレビュー Set ActiveSheet.HPageBreaks(1).Location = Range("C109") '水平改ページ位置1を変更 Set ActiveSheet.HPageBreaks(2).Location = Range("C217") '水平改ページ位置2を変更 Set ActiveSheet.HPageBreaks(3).Location = Range("C326") '水平改ページ位置2を変更 End Sub

以下のプログラムを書きました。 以下のプログラムではA1～C108を１ページ、Ａ１０９～Ｃ２１６を２ページ目、Ａ２１７～Ｃ３２５を３ページ目として印刷するようにページ設定したいのですが、うまく動きません。 どうしてでしょうか？ わかるかたがいたら教えていただけないでしょうか？ よろしくお願いします。 Sub 改ページ設定() ActiveWindow.View = xlPageBreakPreview '改ページプレビュー Set ActiveSheet.HPageBreaks(1).Location = Range("C109") '水平改ページ位置1を変更 Set ActiveSheet.HPageBreaks(2).Location = Range("C217") '水平改ページ位置2を変更 Set ActiveSheet.HPageBreaks(3).Location = Range("C326") '水平改ページ位置2を変更 End Sub

1 A　　　　　　　　B　　　　　　C　　　　　　　D　　　　　　　E　　　　　　　F 2 名前　　　　　時間帯　　　射撃数　　　　　　　　　　　　　　　　　　合計射撃数 3　山田　　　　　0時　　　　　20　　　　　　　　　　　　　　山田　　　　　 4　　　　　　　　　1時　　　　　30　　　　　　　　　　　　　　高橋 5　　　　　　　　　2時　　　　　15　　　　　　　　　　　　　　鈴木 6高橋　　　　　　4時　　　　　 3 7　　　　　　　　　5時　　　　　 5 8　　　　　　　　 13時　　　　　12 9　　　　　　　　 23時　　　　　45 10　　　　　　　 21時　　　　　12 11　　　　　　　 22時　　　　　33 F3～F5に山田さん～鈴木さんの時間帯を合計した射撃数を関数で入力したいと思います。 ２通りの考え方があると思うのですが、教えていただけないでしょうか。 (1)A列の空白の箇所に関数を使いD列に名前を反映させれば、F3～F5にSUMIFの関数が使えると 考えてます。ただ表示させる関数がわからないので教えてください。 (2)OFFSET関数をF3～F5に他の関数を組み合わせてつかえば何とか反映できるのでは？ と考えてます。※OFFSET関数でなくてもいいです。 上記は一部抜粋したものでデータ数がかなりあるので関数を教えていただけると大変助かります。 質問の内容がわかりづらいかもしれませんが、 どちらの方法でもいいので宜しくお願い致します。

無知ですみません！創価学会で日蓮大聖人の御書や教えで男女関係について（恋愛や性的なものなど）説かれているものなど、あるのでしょうか？ 例えば不倫や浮気や女性が体を武器にするなど、こういった事は良い悪いは勿論、どのように説かれているのか気になっています。 もしありましたら、すみませんが分かりやすく教えて頂けると助かります。

エクセル2003でVBAを勉強し始めたものです。 findを用いた検索についてご教授をお願いしたく、ご質問させていただきます。 まず、 ＜シート１＞ A列：受付No. B列：氏名 C列：物件名 ＜シート２＞ A～F列：省略 G～O列：物件名 とあります。 シート１上にコマンドボタンがあり、クリックするとシート１への入力用フォームが開きます。 さらに、そのフォーム内のテキストボックスに物件名を入力するのですが、テキストボックス内でダブルクリックで、物件検索用のフォームが開きます。 物件検索用フォーム内のテキストボックス（Text物件名検索）に文字列を入力し、コマンドボタン（command物件名検索）をクリックすると、フォーム内下部のリストボックス（List物件検索結果）内に、シート２のG～O列を検索した結果が並ぶようになっています。 その候補の中から選択したものが、シート１の物件名の列に並ぶようにしたいのです。 そこで、エクセルファイルを開いたすぐ後は、検索結果が意図通りに表示するのですが、一度他のコード（マクロにてシート１の行削除等）を実行した後、再度物件検索を行うと、検索結果が“なし”（その場合は「見つかりませんでした」とメッセージボックスが開くようにしてあります）となってしまいます。 変数の扱いがわるいのでしょうか？・・・ どうぞご教授のほどよろしくお願いいたします。 以下、検索用フォームのテキストボックス入力後、コマンドボタン(command物件名検索）をクリックしたときの処理コードです。 --------------------------------------- Private Sub command物件名検索_click() Dim bname As String Dim fndrange As Range Dim firstcell As String bname = Text物件名検索.Text Set fndrange = Sheets("TBオーナー").Columns("g:o").Find(bname) If bname = "" Then MsgBox ("キーワードを入力してください") Exit Sub Else If fndrange Is Nothing Then MsgBox ("見つかりませんでした") Text物件名検索.Text = "" Text物件名検索.SetFocus Else If Not fndrange Is Nothing Then firstcell = fndrange.Address Do Set fndrange = Sheets("TBオーナー").Columns("g:o").FindNext(fndrange) List物件検索結果.AddItem fndrange.Value Loop While Not fndrange Is Nothing And fndrange.Address <> firstcell End If End If End If End Sub ----------------------------------------- また、関係あるかわかりませんが、他のコード（シート１から行を削除するマクロ）も掲載させていただきます。 以下、 -------------------------------------- Private Sub Command削除_Click() Dim t As Long Dim DelNo As String Dim delNos As Long Dim s As Range DelNo = InputBox("削除するデータＮＯを入力してください") delNos = Val(DelNo) Set s = Sheets("TBマスター").Columns("A").Find(delNos, lookat:=xlWhole) If DelNo = "" Then Exit Sub ElseIf s Is Nothing Then MsgBox ("データがありません") Exit Sub Else t = Sheets("TBマスター").Columns("A").Find(delNos, lookat:=xlWhole).Row Rows(t).Delete End If End Sub --------------------------------------------------------- 質問のが悪いかも知れませんが、必要なことがあれば随時追記させてください。 以上、よろしくお願いいたします。

エクセル2003でVBAを勉強し始めたものです。 findを用いた検索についてご教授をお願いしたく、ご質問させていただきます。 まず、 ＜シート１＞ A列：受付No. B列：氏名 C列：物件名 ＜シート２＞ A～F列：省略 G～O列：物件名 とあります。 シート１上にコマンドボタンがあり、クリックするとシート１への入力用フォームが開きます。 さらに、そのフォーム内のテキストボックスに物件名を入力するのですが、テキストボックス内でダブルクリックで、物件検索用のフォームが開きます。 物件検索用フォーム内のテキストボックス（Text物件名検索）に文字列を入力し、コマンドボタン（command物件名検索）をクリックすると、フォーム内下部のリストボックス（List物件検索結果）内に、シート２のG～O列を検索した結果が並ぶようになっています。 その候補の中から選択したものが、シート１の物件名の列に並ぶようにしたいのです。 そこで、エクセルファイルを開いたすぐ後は、検索結果が意図通りに表示するのですが、一度他のコード（マクロにてシート１の行削除等）を実行した後、再度物件検索を行うと、検索結果が“なし”（その場合は「見つかりませんでした」とメッセージボックスが開くようにしてあります）となってしまいます。 変数の扱いがわるいのでしょうか？・・・ どうぞご教授のほどよろしくお願いいたします。 以下、検索用フォームのテキストボックス入力後、コマンドボタン(command物件名検索）をクリックしたときの処理コードです。 --------------------------------------- Private Sub command物件名検索_click() Dim bname As String Dim fndrange As Range Dim firstcell As String bname = Text物件名検索.Text Set fndrange = Sheets("TBオーナー").Columns("g:o").Find(bname) If bname = "" Then MsgBox ("キーワードを入力してください") Exit Sub Else If fndrange Is Nothing Then MsgBox ("見つかりませんでした") Text物件名検索.Text = "" Text物件名検索.SetFocus Else If Not fndrange Is Nothing Then firstcell = fndrange.Address Do Set fndrange = Sheets("TBオーナー").Columns("g:o").FindNext(fndrange) List物件検索結果.AddItem fndrange.Value Loop While Not fndrange Is Nothing And fndrange.Address <> firstcell End If End If End If End Sub ----------------------------------------- また、関係あるかわかりませんが、他のコード（シート１から行を削除するマクロ）も掲載させていただきます。 以下、 -------------------------------------- Private Sub Command削除_Click() Dim t As Long Dim DelNo As String Dim delNos As Long Dim s As Range DelNo = InputBox("削除するデータＮＯを入力してください") delNos = Val(DelNo) Set s = Sheets("TBマスター").Columns("A").Find(delNos, lookat:=xlWhole) If DelNo = "" Then Exit Sub ElseIf s Is Nothing Then MsgBox ("データがありません") Exit Sub Else t = Sheets("TBマスター").Columns("A").Find(delNos, lookat:=xlWhole).Row Rows(t).Delete End If End Sub --------------------------------------------------------- 質問のが悪いかも知れませんが、必要なことがあれば随時追記させてください。 以上、よろしくお願いいたします。

今からかく文を英文に したいのですがわからなくて… どうかお願いします。 『人なんか信用できない。 男なんか嫌い…けどいつか あなたを好きになって あなたを信用して ずっと一緒に居たくなる日が くる事を願いたいです。 こんな私だけどずっと 愛してくれますか…？』 ↑これを英文にできるでしょうか？ 普通に言うのもちょっと 嫌なんで、助けてくれると 嬉しいです(^ω^)

こんばんは。 EXCEL VBA　で困っております。 シートから配列にコピーさせると、ReDimで設定してあったIndex番号が なぜか替ってしまうらしいのです。 いろいろと検索してみましたが、どうしても見つからず、ここで質問させていただくことにしました。 下記のコードで確認してみてください。 Sub test() Dim A As Variant ReDim A(1 To 1, 0 To 4) For j = 0 To 4 A(1, j) = j Next j Range("A1:E1") = A MsgBox A(1, 0) 'ちゃんと機能して(1, 0)の位置で[0]と表示 'MsgBox A(1, 5) '←インデックスが有効範囲にありません A = Range("A1:E1") Range("A2:E2") = A 'MsgBox A(1, 0) 'さっき機能したのに今度はエラー MsgBox A(1, 1) '(1, 1)はセルでは２列目の[2]が取得されない MsgBox A(1, 5) 'さっきエラーになった(1, 5)は今度はエラーにならない End Sub なぜ、A(1 to 1, 0 to 4) が A(1 to 1, 1 to 5) と替ってしまうのか？ シート範囲全体をいっぺんに配列に格納するとこういうことが起こるのが仕様なのか？？ 自分の推測では、配列は[0]から始めることができますが、 シート上では[0]という開始位置を認識できないため、 Variant変数型のなかで自動的に書き換えちゃってくれてるのかな？ なんて思ったりしました。 理由がわかる方、おりましたらご教授くださいませ。 また、どうしても、この２次元配列で、 てっとり早いこのコピーコードを使いセル範囲から配列へコピーさせて、 列方向へのIndexを (0 to 4)とさせたいのですが、 何かよい方法はありますでしょうか？？ For文やEach文でひとつずつセルから配列へ格納という方法もあるかもしれませんが、 実際に打ち込んでいるコードは、行列ともかなり範囲が広いために、 処理時間を気にしてしまいます。 そこそこ使い慣れてきたのに、よもやこんなところで、躓くの！？といった心境です。 ご指南のほど、どうぞよろしくお願いいたします。

旦那の父親は10年前に脳梗塞で倒れ、以来身体障害者となり入院したままです。3年前に旦那と結婚したのですが、前に旦那の実家の仏壇に創価学会の女子部の誓い？みたいなのが飾ってあるのを発見しました。旦那に話を聞くと、父方の祖母（もう亡くなっています）が熱心な学会員だったらしく、当然のことながら旦那の父も入信していたそうです。旦那が小学生の頃は父母が学会に行くのに付いていったのを覚えていると言っています。 父親が倒れた今、母は恐らく付き合いで入信しているものの熱心に活動している様子なども全く見られません。もちろん私たちに入信するよう勧めることも、私の息子のお宮参り等もごくごく普通に水天宮でやりました。ちなみに旦那と私は学会否定派です。 心配なのは、旦那がすでに入信しているかということと（まさかとは思いますが私も）、それによって今後私たちが困ることなどがあるのでしょうか？

音が出なくなり、困っていました。 使用PC；作っていただいたPC 　　　　Ver2002　　Xp　 検索して、「AC97 Audio」を削除し、再起動＆再インストールしてみたのですが、音が出ません。 「Disable」との表示はありません。 ただ、他に「！」表示が3つあるのですが、こちらのせいで音が出ないのでしょうか？ ●PCMCIAの「Cirrus。。。。。。」 ●SCSIとRAIDの「Adaptec。。。。。。」が二つ 計3コです。 お知恵を拝借させて頂けると助かります。

sea_clear_skyです。 質問させて頂きます。 Visual Basic 2008 Express Editionの起動をさせる ショートカット及びスタートメニューを削除してしまい、 現在起動させることができません。 C:\Programfileの中にインストールしてあるのですが、 起動のexeファイルを見つけることができません。 起動のファイルの名前や起動の仕方を教えて頂けないでしょうか？ 他のC++　C#　ASPも同様に起動させることができません。 よろしくお願いします。

私自身の話です。 日常生活で普通に行動しているのですが、家にいるとよく何もしたくなくなります。やりたいことややらなくてはいけないことがあるのに、体がだるくて動かないときがあります。寝ようとも思わず、ただボーっと何を考えるでもなく時間だけが過ぎていきます。 それはよく夜に起こりますが、不意にやる気が湧き上がることもあります。 ただ怠けているだけでしょうか？うつ病の可能性はありますか？ ちなみに今はなんともいえない状況です。だるいけどボーっとはしてないです。 どなたかお答えいただけると幸いです。

教えてください。 １００個のエクセルファイルが有るのです。 これを１のファイルにタブを１００個にしたものを作りたいのですが、手作業で行うととても時間がかかります。 何か良い方法は有りませんでしょうか。 よろしく御願いします。

地デジのテレビを購入したんですが、 ＢＳ１とＢＳ２だけ何故かアナログです。 あとは地上、ＢＳともに全局地デジです。 何故、ＢＳ１とＢＳ２はアナログなんでしょうか。

輪廻転生、これが、信じれるかどうかで、人生が分かれます 宗派は関係ないと思っています、どんな宗教でも良いでしょう 生き方が違って来るからです、なぜ人間にこの様なサイクル を設定したのか、分かる方がいたら、回答お願いします よろしく

　例えば太陽光の下で、ある物質の反射による色が赤として認識できるとき、なぜその色は赤の光を反射しているのでしょうか。青を反射する物質とどう違うのでしょうか。 　表面の凹凸の度合いによって反射する波長が変わってくるのでしょうか。だとすれば、どのくらいの凹凸ならこの色を反射する、といったようなデータや実験結果があるのでしょうか。 　情報提供お願いします。

4年くらいバイトとかで食べていました。 1年前くらいから仕事もなくなり、職を何度も挑戦するも全く受からず。 何をしたいかもわからない、内定もらったような感じになってたのに、いきなり取り消し、とかでとうとう150社（現在も進行中）受けて全部落ちました。 そんなことがあったせいか、よくわからないですが・・・ 電話で家族の人と話てると急に涙がでてきたり（胸がきゅーっとなって泣きそうになる）悲しくなったりします、がんばってもなかなか前に進まない自分にもイライラして、友達と話してると、ほんとごくわずかなことで強くあたったりしてしまうこともあります。そんな自分もほんと嫌いで嫌いで仕方ありません。胃も悪いせいか、不安があるたび胃がすごく痛いです胃潰瘍で（現在治療中）。本当に何をしてもうまくいかず、気分を変えたいと遊ぼうとするも、いつのまにか友達もいなくなっていたりで一人で遊んだりしますが、一人で遊んでいると、とてつもなくむなしくなります。 あと履歴書が4年も空白があるためか、その事を面接で聞かれたり、自分で履歴書を書いているとほんと気分が悪くなり過去を悔やんだりしてまた涙がでてきてものすごくつらくなります。 人に頼るのは悪いと思っていますが、もうこんなところでしか本音を言えなくなってしまいました。人に頼るのは悪いと思っていますが、誰かアドバイスお願いします。

　例えば太陽光の下で、ある物質の反射による色が赤として認識できるとき、なぜその色は赤の光を反射しているのでしょうか。青を反射する物質とどう違うのでしょうか。 　表面の凹凸の度合いによって反射する波長が変わってくるのでしょうか。だとすれば、どのくらいの凹凸ならこの色を反射する、といったようなデータや実験結果があるのでしょうか。 　情報提供お願いします。