FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/07«│ 2019/08| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 »2019/09
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
2018/08/01
23:56:26
7月はエアコンで体調を崩してしまいあまり活動が出来ませんでした。
本、日用品(シャンプーや化粧品等)は全て現金使わないでちょくちょくためたポイントのギフト券等で買っています。お金がもったいないので。
ここ最近、収入を使うと言う考えがないですね。

「掟上今日子の備忘録」見始めました。

23:59:27
今回は選択範囲の式を消しました!!!
仕事中とか、なかなか出来ないこともあるんですよね。

Sub 選択範囲の式を消す()
Dim buf
Set buf = Application.InputBox("zzz", Type:=8)
For Each ws In Worksheets
If InStr(ws.Name, "(") <> 0 Then
ws.Range(buf.Address).Value = ws.Range(buf.Address).Value
End If
Next
End Sub

他にも作りたいものいっぱいあるんだけどなかなか時間が無いね。
管理リストも綺麗にしたと思ったら直ぐ増えるし・・・・・・覚えることが多い方が楽しくて良いんだけどね。

とりあえず今は帰ってからも仕事がメイン。仕事できるだけ有難いと思える私になりたいです。



最後ポチャッコが怖い!
23:40:37
今月は忙しそうな一月ですが頑張ります!!!
体調も崩してたし(少し)
でも仕事は一杯有りますし、たまってます。やっぱりそのくらいが一番良いのです。

Sub 数式のみコピーする()
Dim MaxRow As Long
Dim MaxCol As Long
On Error Resume Next
With Worksheets("原紙").UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With
Dim a As Variant
a = Range(Worksheets("原紙").Range("a1"), Worksheets("原紙").Cells(MaxRow, MaxCol)).Formula
Dim b
ReDim b(MaxRow, MaxCol)
For i = 1 To MaxRow
For k = 1 To MaxCol
If InStr(a(i, k), "=") <> 0 Then
b(i - 1, k - 1) = a(i, k)
End If
Next
Next
Dim j As Variant

For Each ws In Worksheets
If InStr(ws.Name, "(") <> 0 Then
j = Range(ws.Range("a1"), ws.Cells(MaxRow, MaxCol))
For i = 0 To MaxRow
For k = 0 To MaxCol
If b(i, k) <> 0 Then
j(i + 1, k + 1) = b(i, k)
End If
Next
Next
Range(ws.Range("a1"), ws.Cells(MaxRow, MaxCol)) = j
End If
Next
End Sub


数式のみコピーしてくれるマクロです。
会社別に色々な書式を管理しているので、こういうマクロがあるとすごく便利です。
後はデータベースを自動で更新してくれるマクロが欲しいなあ・・・・・・。


P.S. LiSAさんのコンサートが当たりました。楽しんで来ます\(^o^)/



プロフィール

はなかな

Author:はなかな
FC2ブログへようこそ!

最新記事
最新コメント
月別アーカイブ
カテゴリ
フリーエリア
ランキング参加しています。 にほんブログ村 哲学・思想ブログ エホバの証人へ にほんブログ村 にほんブログ村 本ブログ 読書日記へ にほんブログ村 にほんブログ村 音楽ブログへ にほんブログ村
音楽(J-POP) ブログランキングへ
小説(読書感想) ブログランキングへ
キリスト教 ブログランキングへ
ブログランキング ブログ王ランキングに参加中!
検索フォーム
RSSリンクの表示
リンク
このブログをリンクに追加する
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
FC2アフィリエイト