FC2ブログ
エホバの証人二世の、個人研究&趣味blogです。
2019/02«│ 2019/03| 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/04
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
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^)/




コメント
コメントの投稿










トラックバック
トラックバックURL
→http://ayukt0526.blog.fc2.com/tb.php/432-a0f43add
この記事にトラックバックする(FC2ブログユーザー)
プロフィール

はなかな

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

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

この人とブロともになる

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