starsip の回答履歴

転職して2年目の彼（20代）が最近多忙で毎朝5時起き、 夜は23時過ぎまで仕事をしています。 週休2日ですが、休日出勤が多くほとんど週休１日です。 私に対しては今まで全く愚痴をいう人ではなかったのに 最近愚痴をいうことが多くなりました。 かなりストレスがたまっていそうです。 彼は前の会社を体調不良のため退職しているので、体が心配です。 かくいう私は現在うつで休職しているので共倒れのように なることも怖いのです。 忙しそうな彼に対して 「無理しないでね」という言葉をかける以外にできることは あると思いますか？？ 私は今体調がよくないので、ただでさえ忙しいのに 彼に負担や心配をかけていると思います。 それも彼のストレスになっているかもしれません。 忙しい人に対してこうやって支えている、とか こうして欲しいとか・・。 男女問わず何かお話を聞かせていただけたらと思います。

風俗好きだけど、『金で買えない関係を私と築きたい。お前を大事にするから』と言うにメールで、今後も行くのか？今、セフレが居るの？と尋ねた所返事がありません。 肯定だからか、違うのに何故信用しないんだ？という無言の抵抗かどちらなんですか？

こんにちは、VBA初心者です。 C:\pictureの中に以下のファイルがあります。 DSC_0134.JPG～DSC_0154.JPG これらのファイルをExcelのA列1～20行に書かれた文字△○％＆◎～▲▽％％★に.JPGをつけて保存したくて以下のコードを書きました。 Dim buf As String Dim msg As String Dim i As Integer Dim A As Variant i = 1 buf = Dir("dsc*.jpg", vbNormal) Do While buf <> "" Do While i < 21 buf = Dir() msg = buf 'msg=元の名前 A = Worksheets("sheet1").Cells(i, 1).Value 　　　　Worksheets("sheet1").Cells(i, 2).Value = msg 　　　　 　　　　Name "C:\picture\msg" As "C:\picture\A.jpg" 　　　　i = i + 1 Loop Loop Name "C:\picture\msg" As "C:\picture\A.jpg"のところで、「ファイルがありません。」となってしまいます。 あと、Worksheets("sheet1").Cells(i, 2).Value = msgのところで、\pictureの中の最初のファイル（DSC_0134.JPG）を表示しません。 どこを直せばよいのでしょうか？

こんにちは、VBA初心者です。 C:\pictureの中に以下のファイルがあります。 DSC_0134.JPG～DSC_0154.JPG これらのファイルをExcelのA列1～20行に書かれた文字△○％＆◎～▲▽％％★に.JPGをつけて保存したくて以下のコードを書きました。 Dim buf As String Dim msg As String Dim i As Integer Dim A As Variant i = 1 buf = Dir("dsc*.jpg", vbNormal) Do While buf <> "" Do While i < 21 buf = Dir() msg = buf 'msg=元の名前 A = Worksheets("sheet1").Cells(i, 1).Value 　　　　Worksheets("sheet1").Cells(i, 2).Value = msg 　　　　 　　　　Name "C:\picture\msg" As "C:\picture\A.jpg" 　　　　i = i + 1 Loop Loop Name "C:\picture\msg" As "C:\picture\A.jpg"のところで、「ファイルがありません。」となってしまいます。 あと、Worksheets("sheet1").Cells(i, 2).Value = msgのところで、\pictureの中の最初のファイル（DSC_0134.JPG）を表示しません。 どこを直せばよいのでしょうか？

こんばんわ！ エクセルのファイルをVBAを使って、ファイルを開く回数制限は可能でしょうか？ 例えば５０回を限度とし５１回目を開くと回数制限切れとメッセージが出て終了するようには出来るでしょうか？ 只今VBAの勉強中の為、可能であれば具体的に教えて頂ければ有難いです。

こんばんは。主人がもうすぐ遠くに出張する予定です。いつもは私が主人の 会社へ車で送り迎えをしていますが、主人はどうしても私に車で高速道路を 乗り継いで（或いは最寄の駅まで。←車で約90分かかります。一人で運転して 行った事がありません。）迎えに来て欲しいと言われました。高速道路もようやく片道だけ運転出来るようになった私に「右折や左折する時はナビの言うとおりにウインカーを出して走ればいい」と言い「帰りは俺が運転するから、 大丈夫だ。同じ日に出張先から帰ってくる同僚も数名いるから・・・」と 話しました。私が「えぇ！！会社の人もいるの？」と聞くと「最寄の駅に着く のは予定だと夜の20:00前後。家に着いても22:00位になるかも知れない。もしかしたら、会社の人も送ってやるかも・・・」と。「高速なんかつい 最近片道だけ運転出来るようになったんだよー」と返答すれば「そしたら 家から一番近い駅まで迎えに来てくれ。22:00位なら車も殆どいないし、 安全に運転できるぞ」と言われてしまいました。それからです。 結婚してからずっと主人がお休みの日は、一緒に買い物にも行ってたのに 行かなくなってしまいました。私的にはやはり慣れない場所の高速道路を 夜に運転して迎えに行くのは怖いのです。主人にはなかなか気持ちが伝わっていないように思えます。私は主人から嫁として思われていないので しょうか？この‘教えて！‘に質問や回答されている皆さんの中でご主人様が遠くへ出張したら、自ら高速道路や慣れない道を運転して迎えに行かれた事はありますか？主人にはやんわりと断ってはみたものの今でも 主人の言うとおりに運転して慣れない場所へ迎えに行くべきか？主人にとって私は嫁としてみられていないのか？悩んでおります。 どうか皆様、宜しくお願いします。

エクセルの条件付書式は３個までしか使えないのでしょうか？ たとえば、 日勤の日はセルを赤くする、 夜勤の日はセルを青くする、 中勤の日はセルを黄色くする、 休みの日はセルを緑にする、 見たいにやると条件が足りなくなってしまうのです。 ちなみにエクセルは２００３？（オフィス２００３に入っている）を使用しています。

VBAで、ユーザーフォームを開くと右上に「×」の閉じるボタンがありますが、これを使用できなくする方法を教えてください。 回答よろしくお願いします。

　条件付き書式で３つはできるようになったのですが、４つ以上だと項目が出てこないでできません。４つ以上の条件付き書式はできるのでしょうか。ちなみに以下のことを考えています。 １００～　　…　A 　９０～９９… B 　８０～８９… C 　７０～７９… D 　６０～６９… E 　５０～５９… F 　４０～４９… G 　３０～３９… H 　２０～２９… I 　１０～１９… J 　　０～９ … K

　条件付き書式で３つはできるようになったのですが、４つ以上だと項目が出てこないでできません。４つ以上の条件付き書式はできるのでしょうか。ちなみに以下のことを考えています。 １００～　　…　A 　９０～９９… B 　８０～８９… C 　７０～７９… D 　６０～６９… E 　５０～５９… F 　４０～４９… G 　３０～３９… H 　２０～２９… I 　１０～１９… J 　　０～９ … K

エクセル年間行事表と別シートの学期毎の表とをリンクさせています。年間行事表では，文字色を「赤，青，緑，プラム」と行事の内容毎に変えています，しかし，リンク先の表では，文字色は全て黒色。リンク先シートで，文字色を反映させる設定というのはないのでしょうか。どうぞ教えてください。

エクセル年間行事表と別シートの学期毎の表とをリンクさせています。年間行事表では，文字色を「赤，青，緑，プラム」と行事の内容毎に変えています，しかし，リンク先の表では，文字色は全て黒色。リンク先シートで，文字色を反映させる設定というのはないのでしょうか。どうぞ教えてください。

セル内での足し算をすることおが頻繁にあり、最近見つけた「式入力を変更する」のオプションを選択しておくと、セル内で足し算等をする場合にいちいち＝を入力しないですむのが重宝していました。ところでそのオプションの「式入力を変更する」にチェックを入れた状態で、日付を入れたいセルもあるのですが、そのセルで「２／１６」のように日付を入れても「＝２÷１６」と勝手に計算して変な数字にしてしまいます。これを、オプションのチェックボックスを外さずに普通に日付入力をする方法をご存じの方お教え下さい。

セル内での足し算をすることおが頻繁にあり、最近見つけた「式入力を変更する」のオプションを選択しておくと、セル内で足し算等をする場合にいちいち＝を入力しないですむのが重宝していました。ところでそのオプションの「式入力を変更する」にチェックを入れた状態で、日付を入れたいセルもあるのですが、そのセルで「２／１６」のように日付を入れても「＝２÷１６」と勝手に計算して変な数字にしてしまいます。これを、オプションのチェックボックスを外さずに普通に日付入力をする方法をご存じの方お教え下さい。

セル内での足し算をすることおが頻繁にあり、最近見つけた「式入力を変更する」のオプションを選択しておくと、セル内で足し算等をする場合にいちいち＝を入力しないですむのが重宝していました。ところでそのオプションの「式入力を変更する」にチェックを入れた状態で、日付を入れたいセルもあるのですが、そのセルで「２／１６」のように日付を入れても「＝２÷１６」と勝手に計算して変な数字にしてしまいます。これを、オプションのチェックボックスを外さずに普通に日付入力をする方法をご存じの方お教え下さい。

初歩的な質問かもしれませんが、表題のとおりです。 文字データが入っているセルの背景色を、 文字データはいじらずに色だけをコピーして、 別の文字データが入っている他のセルへペーストしたいのです。 コピーして「形式を選択して貼り付け」で「書式のみ」にすると 文字の書式がペーストされてしまいます。それを避けたいのです。 方法がありましたらぜひ教えてください！！

みなさんこんにちわ。 私はとある建築会社に勤めています。 そこで、建築の工程表たるものを作成したいと考えています。 どういったものかと言うと、基礎の着工から建物のお引渡しまで合計140項目あって、それぞれに所要日数が設けられています。大体合計で120日で完成といったところです。 所要日数は時と場合により多少ズレる事があります。 それを120日のカレンダー上におとしこみたいと考えています。 列ごとに日付行に工事項目といった感じです。 開始日から二日後に○○工事としたい場合、所要日数は２日 １番目の列が１日２番目の列が２日・・・と始まるカレンダー上に１番目に工事開始と表示されその２番目に○○工事と表示するにはどうすればいいでしょうか？ みなさん教えてください

初歩的な質問かもしれませんが、表題のとおりです。 文字データが入っているセルの背景色を、 文字データはいじらずに色だけをコピーして、 別の文字データが入っている他のセルへペーストしたいのです。 コピーして「形式を選択して貼り付け」で「書式のみ」にすると 文字の書式がペーストされてしまいます。それを避けたいのです。 方法がありましたらぜひ教えてください！！

エクセル2002を使用している初心者です。 エクセルを閉じる操作をしたときに、指定シートのあるセルをクリアして、 また別のシートについても、そのシート内のあるセルの文字を指定のセルにコピーしたいのです。（コピー先はセルの色を塗りつぶしたり、大きいフォントを使用しているので、その書式は変更せず、文字データだけをコピーしたいのです） このＶＢＡの書き方を教えていただけないでしょうか。 ＶＢＡは書き込む場所はThisWorkbookですよね。 ＶＢＡの種類は、Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub ですよね。 すみません。この中に入れるコードがわからないのです。 クリアにするセルは、 シート名　利用券　の　F15,F16,F17,Y16,AO16,AX16　です。 コピーするセルは、 シート名　施設　の　セルG6　を　セルC3　にコピーしたいのです。 （セルC3は、セルの色を塗りつぶしてあり、フォントも大きめを指定してあるので、その書式を活かしたままにしたいのです。また、セルC3は入力規則を設定していて、文字入力はできないようになっています。コピーはできましたけど・・・） いろいろ述べてすみません。 どうか教えてください。よろしくお願いいたします。

エクセル2002を使用している初心者です。 エクセルを閉じる操作をしたときに、指定シートのあるセルをクリアして、 また別のシートについても、そのシート内のあるセルの文字を指定のセルにコピーしたいのです。（コピー先はセルの色を塗りつぶしたり、大きいフォントを使用しているので、その書式は変更せず、文字データだけをコピーしたいのです） このＶＢＡの書き方を教えていただけないでしょうか。 ＶＢＡは書き込む場所はThisWorkbookですよね。 ＶＢＡの種類は、Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub ですよね。 すみません。この中に入れるコードがわからないのです。 クリアにするセルは、 シート名　利用券　の　F15,F16,F17,Y16,AO16,AX16　です。 コピーするセルは、 シート名　施設　の　セルG6　を　セルC3　にコピーしたいのです。 （セルC3は、セルの色を塗りつぶしてあり、フォントも大きめを指定してあるので、その書式を活かしたままにしたいのです。また、セルC3は入力規則を設定していて、文字入力はできないようになっています。コピーはできましたけど・・・） いろいろ述べてすみません。 どうか教えてください。よろしくお願いいたします。