時間うさぎの日記

  

https://img03.ti-da.net/usr/c/h/i/chibachyan/haibi3_xQf.png

お久しぶりです。
  

作りました。
難しかったけど、やりました。(気分爽快)






・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Option Explicit

Sub 売上登録()

Dim i

For i = 4 To Sheets("一覧").Range("A10000").End(xlUp).Row + 1

If Sheets("一覧").Range("A" & i).Value = "" Then

With Sheets("一覧")
.Range("A" & i).Value = Sheets("売上").Range("B3").Value
.Range("B" & i).Value = Sheets("売上").Range("B4").Value
.Range("C" & i).Value = Sheets("売上").Range("B5").Value
.Range("D" & i).Value = Sheets("売上").Range("B6").Value
End With

MsgBox "登録完了しました"
Sheets("売上").Range("B3:B4").ClearContents
Sheets("売上").Range("B6").ClearContents

Exit For

End If

Next

End Sub

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
Sub 請求書発行2()

Dim i
Dim cnt
Dim a

For a = 7 To Sheets("一覧").Range("G10000").End(xlUp).Row

cnt = 10

Sheets("雛形").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Sheets("一覧").Range("G" & a).Value

Sheets(Sheets.Count).Range("G3").Value = Date
Sheets(Sheets.Count).Range("B5").Value = Sheets("一覧").Range("G" & a).Value

For i = 4 To Sheets("一覧").Range("A10000").End(xlUp).Row

If Sheets("一覧").Range("A" & i).Value = Sheets("一覧").Range("G" & a).Value Then

Sheets(Sheets.Count).Range("B" & cnt).Value = Sheets("一覧").Range("B" & i).Value
Sheets(Sheets.Count).Range("E" & cnt).Value = Sheets("一覧").Range("C" & i).Value
Sheets(Sheets.Count).Range("F" & cnt).Value = Sheets("一覧").Range("D" & i).Value

cnt = cnt + 1

End If

Next

Sheets(Sheets.Count).Copy

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\Users\owner\Desktop\SKR\" & Format(Date, "yyyymmdd") & ActiveSheet.Name & ".xlsx"
ActiveWorkbook.Close

Sheets(Sheets.Count).Delete
Sheets("一覧").Select

Next

End Sub

  

条件が2つ以上の場合

https://www.wanichan.com/pc/excel/2016/7/12.html  

できました。
目的にあった、VBA

Sub 利用者()

Dim i

For i = 2 To Sheets("利用者状況").Range("A10000").End(xlUp).Row + 1

If Sheets("利用者状況").Range("A" & i).Value = "" Then

With Sheets("利用者状況")
.Range("A" & i).Value = Date

.Range("B" & i).Value = Sheets("登録").Range("B3").Value
.Range("C" & i).Value = Sheets("登録").Range("B4").Value
.Range("D" & i).Value = Sheets("登録").Range("B5").Value
.Range("E" & i).Value = Sheets("登録").Range("B6").Value

End With

MsgBox "登録しました"

Sheets("登録").Range("B3:B6").ClearContents

Exit For


End If

Next


End Sub


  

お疲れ様です。

以前作った万年カレンダーに、
この前作ったVBAをつけて1年がかりで完成です。
今日は最高です。
超うれしいです。
バンザイ・バンザイ・バンザイ




  

おはようございます。

覚え書き
https://prau-pc.jp/excel/distribution-ratio/#toc2
  

この間作ったVBAを利用して、面白いものを作りました。
最近、物忘れがひどいので、つい、自分のやるべきことを忘れてしまいます。
これがあれば、確実にこなせるはず・・・？かも。笑

名付けて自己スケジュール・タスク管理

これから、色々広がるかも。カレンダーに連動させて、・・課題です。





  

ついに完成しました。
一行選択のボタンを押し→済みのボタンを押すとしたに下がって、その分の上に行くように仕込みました。

＊今日のポイントはCallで他のプロシージャを呼び込む。

Option Explicit
Sub 一行選択()
Range("A3:F3").Select
End Sub

Sub Sample()
Dim c As Range
Const myDw As Long = 31 '←31行分下に移動させる
For Each c In Selection
c.Cut c.Offset(myDw)
Next c
Call 一行上へ
MsgBox "完了しました"
End Sub

Sub 一行上へ()
Range("A4", "F300").Cut Range("A3")
End Sub



  

おはようございます。

GIMPの学習のために・・。

URLを貼っておきます。

https://synclogue-navi.com/gimp-manual-beginner/#heading0

これを参考にしてくださいね。
https://www.youtube.com/watch?v=jzsUZi8p7Y0  

自分のやりたかったこととは少しだけ違いけど、一応完成です。
最初だから、勘弁・・
もっと、勉強します。
結局・・今回はネットの知恵を借りましたが、
毎日集中してやったので。80％ですが満足です。
更に頑張ります。






  

Sub 移動()

Dim i

For i = 23 To Sheets("Sheet1").Range("A1000").End(xlUp).Row + 1

If Sheets("sheet1").Range("A" & i).Value = "" Then

With Sheets("sheet1")
.Range("A3:E3").Cut Range("A" & i)
End With

Exit For

End If

Next

MsgBox "登録しました"
Range("A3:E3").ClearContents

End Sub

今日はここまで。


ネットからヒント探しました。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

「Ctrlキー」を押下したまま、「複数のセルを選択」してから、マクロを実行します。
それらの範囲を「6行分下」に移動させます。
コードの上から3行目の「6」を変更すると、その数値分下に移動します。
上に移動させるときはマイナスを付けて→「-6」とすると上に6行分移動します。

下記のコードを指定された要領で張り付けて、マクロを実行します。

Sub Sample()
Dim c As Range
Const myDw As Long = 6 '←6行分下に移動させる
For Each c In Selection
c.Cut c.Offset(myDw)
Next c
End Sub

************＜＜標準モジュール＞＞*****************
＜マクロの張り付け＞
１．上記のマクロコードをコピーして、、エクセルのシートに戻って、、
２．「Alt」キーを押したまま「F11」→「I」→「M」と順番にキーを押していきます。
３．広い窓のカーソルが「テカテカ」しているところにコードを貼り付けます。
４．もうこのVBEの画面は必要ないので、右上の「×」を押すと、元のシートに戻ります。

＜マクロの実行＞
１．そのデータのシートから「Alt」キーを押したまま「F8」を押します。
２．マクロのダイアログで、マクロ名が「Sample」となっているのを確認して「実行」

頻繁にやるようなら、ショートカットキーに登録しとくとラクチンです。  

スピルという新しい機能を使えば、簡単にできそうです。
問題は、もとのでーたーを、消すことだよね。

もしくは、Offsetを使えばVBAはどうなるのかな？

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub 移動()

Dim i
For i = 23 To Sheets("Sheet1").Range("A1000").End(xlUp).Row + 1


If Sheets("sheet1").Range("A" & i).Value = "" Then

Range("A3:E3").Select
Selection.Cut
Range("A" & i).Select
ActiveSheet.Paste

Exit For


End If

Next

MsgBox "登録しました"
Range("A3:E3").ClearContents

End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝－－

今日はここまで。
一応できてるみたいですが、
次々には、うまくいかない・・・。  

2020/09/23(水)
覚書


Sub 切り取り・貼り付け（）
　　
Range("A4:E4").Select
Selection.Cut
Range("A22").Select
ActiveSheet.Paste

End Sub

=======================================
Sub 練習2()
Dim i
For i = 22 To Sheets("Sheet1").Range("A1000").End(xlUp).Row + 1

If Sheets("sheet1").Range("A" & i).Value = "" Then



With Sheets("Sheet1")
.Range("A" & i).Value = Sheets("Sheet1").Range("A3").Value
.Range("B" & i).Value = Sheets("Sheet1").Range("B3").Value
.Range("C" & i).Value = Sheets("Sheet1").Range("C3").Value
.Range("D" & i).Value = Sheets("Sheet1").Range("D3").Value
.Range("E" & i).Value = Sheets("Sheet1").Range("E3").Value
End With

Exit For


End If

Next

MsgBox "登録しました"

Sheets("Sheet1").Range("A3:e3").ClearContent

End Sub


作ってみましたが・・動かないので、どこが悪いのか・・あした・・・です。
  

2020/09/20 18:04

VBAの学習を覚え書きにします。





  

皆さんお元気でしたか？
コロナの影響でやーぐまいの日々です。

私は、昨年1月から在宅就労支援を受けて動画作成の仕事をしています。

昨年4月に教わりました。

Avitulと言うソフトを使っています。

https://youtu.be/psLHJCfzSY8  

久々に更新です。

みなさん、おげんきですか。

  

お久しぶりです。
もう、長いことブログはさわっていませんでしたが。
facebookは、毎日更新していました。


台風は大丈夫ですか？家は昨夜2・3回停電しましたが。
風が強く吹いています。
窓がガタガタと音を立てていました。
皆大丈夫だったかな？？心配です。

今日も元気に頑張ります。よろしくお願いします。

こちらも宜しく
https://www.facebook.com/gosyokensan?ref=aymt_homepage_panel
(650)  

おはようございます。
最近、FBの楽しさをしり、色々な物をシェアしました。
ですが、考えてみたら、
私が、登録してる方に、みなに配信されてしまうことをかんがえずにいました。
大変、失礼なことをしてしまいました。
もうしわけありません。

・・・・穴があったら入りたい。
豊に感謝です。

やっぱり、ブログの方が私にはあってるかもね。
  続きを読む

ハイビスカスアレンジして、之は、日曜日の会合の背景として使います。

どっちが背景としていいのかな？  続きを読む

おはようございます。

毎朝、携帯では配信してましたが、・・・すみません。

やっぱり、ちゃんとしなきゃネ。
お詫びとして、




今日は、日曜日に会合の為に・・・
これから、美容室に行き、綺麗になってきます。



  続きを読む