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の勉強中の為、可能であれば具体的に教えて頂ければ有難いです。