エホバの証人二世の、個人研究&趣味blogです。
2018/04«│ 2018/05| 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 »2018/06
文字色の変化のON/OFFが出来ます。文字サイズ文字サイズ:大文字サイズ:中文字サイズ:小
22:39:18
行列に関するマクロ

行列に関するマクロ

こんな感じです。凄く楽になります。

Countifにifの式を入れたりとかも有ったりします;;;

行列に関するマクロ

Sub RowsClipBoard()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim rng_addr As String
Dim msg As String
Dim gyoks As Variant
Dim gyoks2 As Variant
rng_addr = Selection.Address(False, False)
rng_addr = Replace(rng_addr, ":", "")
If IsNumeric(rng_addr) Then
With ActiveSheet.UsedRange
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With
gyoks2 = Selection
ReDim gyoks(MaxCol + 1)
For i = 1 To MaxCol + 1
gyoks(i - 1) = gyoks2(1, i)
Next
End If
Selection.Insert Shift:=xlDown
Range(Cells(Selection.Row, 1), Cells(Selection.Row, MaxCol + 1)) = gyoks
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


マクロは面倒な作業を簡略化するためのモノです!!!

コメント
コメントの投稿










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

はなかな

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

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

この人とブロともになる

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