FC2ブログ

【エクセルVBA(マクロ)】データ初期化

 Sub初期化()

    Worksheets("シート名").Range("B7:I26").Select
    Selection.ClearContents
   
    Worksheets("シート名").Range("b32:g51").Select
    Selection.ClearContents
   
   
    Worksheets("シート名").Range("b57:g76").Select
    Selection.ClearContents
   

End Sub

続きを読む

【エクセルVBA(マクロ)】切り取りと挿入

 ' ※切り取りと挿入、不要な行の削除を繰り返しているだけの簡単な
'  マクロなので、特にコメント等はいれてないです。
Sub User_Column_Swap()

    Range("B31:B50").Select
    Selection.Cut
    Range("A31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("E31:E50").Select
    Selection.Cut
    Range("B31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("C31:C50").Select
    Selection.ClearContents
   
    Range("F31:F50").Select
    Selection.Cut
    Range("D31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("H31:H50").Select
    Selection.Cut
    Range("E31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("J31:J50").Select
    Selection.Cut
    Range("F31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("I31:I50").Select
    Selection.Cut
    Range("G31").Select
    Selection.Insert Shift:=xlToRight
   
    Range("J31:K50").Select
    Selection.Delete Shift:=xlToLeft
End Sub

続きを読む

【エクセルVBA(マクロ)】IPアドレス変換

 Private Sub 接続元アドレス変換()
'
'
Dim スラッシュSplit As Variant
Dim ドットSplit As Variant
Dim ホスト数元データ As Integer
Dim ホスト数 As Integer
Dim サブネットマスク As Long
Dim NWaddress As Integer
Dim min As Integer
Dim max As Integer
Dim a
Dim b


    For a = 7 To 26

    If (Cells(a, 4) = "") Then
        Exit For
    End If


    スラッシュSplit = Split(Cells(a, 4).Value, "/")
    ドットSplit = Split(スラッシュSplit(0), ".")


                        ホスト数元データ = 32 - Val(スラッシュSplit(1))
                        ホスト数 = 2 ^ (ホスト数元データ) - 1
                        サブネットマスク = Not (ホスト数)
                        NWaddress = サブネットマスク And ドットSplit(3)
                        min = NWaddress
                        max = NWaddress + ホスト数

Cells(a, 9) = Left(スラッシュSplit(0), Len(スラッシュSplit(0)) - Len(ドットSplit(3)) - 1) & "." & min & "-" & _
           Left(スラッシュSplit(0), Len(スラッシュSplit(0)) - Len(ドットSplit(3)) - 1) & "." & max


Next

End Sub

続きを読む

続きを読む

【エクセルVBA(マクロ)】取り消し線削除VBA

 Sub 選択範囲の取消線の付いた文字を削除()
    For Each myCell In Selection
        textBefore = myCell.Value
        textArter = ""
        For i = 1 To Len(textBefore)
            If myCell.Characters(Start:=i, Length:=1).Font.Strikethrough = False Then
                textArter = textArter & Mid(textBefore, i, 1)
            End If
        Next i
        myCell.Value = textArter
    Next myCell
End Sub

続きを読む

続きを読む

続きを読む

続きを読む

【趣味メモ】ランキング

■映画
 
 【オールジャンル】
 No1: ブルースオールマイティ(ジムキャリー)
 No2: キス・オブ・ザ・ドラゴン(ジェットリー)
 No3: トゥルーライズ(シュワちゃん)
 No4: ターミネーター2(シュワちゃん)
 No5: アイ・アム・サム(ショーン・ペン)



■音楽

 ▼B'z


シチュエーション別ランキングNo1No2 No3  No4No5
総合C'mon
歌詞意味
ねがい
歌詞意味
OH!GIRL
歌詞意味
YOU&I
歌詞意味
HOME
歌詞意味
アルバムGREEN (green:未熟)C'monBIG MACHINELOOSESURVIVE
シングルねがい
歌詞意味
熱き鼓動の果てさまよえる蒼い弾丸HOME
歌詞意味
愛のままにわがままに僕は君だけを傷つけない
バラードどうしても君を失いたくないいつかのメリークリスマス恋じゃなくなる日赤い河破れぬ夢をひきずって
BLOWIN'恋心(KOI-GOKOKORO)
I'm in love?
熱き鼓動の果てSURFIN' 3000GTR
歌詞意味
DIVEjuiceBlue Sunshine
もう一度キスしたかった
いつかのメリークリスマスどうしても君を失いたくない恋じゃなくなる日赤い河Survive
C'monブルージーな朝WAKE UP, RIGHT NOWミエナイチカラBLOWIN'
今夜月の見える丘に夢見が丘月光ONE
天気が良い日BLOWIN'恋心(KOI-GOKOKORO)Blue Sunshine
雨の日闇の雨破れぬ夢をひきずって
疲れた時ハピネス破れぬ夢をひきずって
何も考えたくない時赤い河破れぬ夢をひきずって
元気になりたい時Wonderful Opportunity
歌詞意味
衝動
歌詞

さよなら傷だらけの日々よ
歌詞
STAY GREEN~未熟な旅はとまらない~
歌詞意味
SURFIN' 3000GTR
歌詞意味
トレーニングしている時SURFIN' 3000GTR
歌詞意味
熱き鼓動の果てultra soulSTAY GREEN~未熟な旅はとまらない~
歌詞意味
DIVE
カッコいいPVC'mon
※特にサビ1終わりの「カモン!」が最高にカッコいい!!
ねがいHOME


続きを読む

FC2-Counter (Since 2013/8)