Posted by admin on 3月 3, 2011
Archive for the ‘EXCEL-VBA’ Category
Posted by admin on 2月 21, 2011
EXCEL VBA 重複行削除
Posted under EXCEL-VBA
EXCEL VBA 重複行削除
Sub 重複行削除()
開始行 = 2
終了チェックカラム = “B”
比較対象カラム = “B”
開始行 = 2
終了チェックカラム = “B”
比較対象カラム = “B”
For ii = 開始行 To 5000
DoEvents
If ActiveSheet.Range(終了チェックカラム & CStr(ii)).Value = “” Then
Exit For
End If
For jj = ii + 1 To 5000
DoEvents
If ActiveSheet.Range(終了チェックカラム & CStr(jj)).Value = “” Then
Exit For
End If
If ActiveSheet.Range(比較対象カラム & CStr(ii)).Value = ActiveSheet.Range(比較対象カラム & CStr(jj)).Value Then
If ActiveSheet.Range(比較対象カラム & CStr(ii)).Value = “” Then
GoTo SKIP0
End If
Debug.Print “①[” & ii & “]” & ActiveSheet.Range(比較対象カラム & CStr(ii)).Value
Debug.Print “②[” & jj & “]” & ActiveSheet.Range(比較対象カラム & CStr(jj)).Value
Debug.Print “”
ActiveSheet.Rows(jj).Select
ActiveSheet.Rows(jj).Delete Shift:=xlUp
jj = jj – 1
End If
SKIP0:
Next jj
Next ii
End Sub
Posted by admin on 2月 21, 2011
EXCEL VBA ハイパーリンク挿入
Posted under EXCEL-VBA
EXCEL VBA ハイパーリンク挿入
Sub ハイパーリンクを挿入する()
i開始行 = 1
sリンク設定カラム = “T”
For ii = i開始行 To 200
If Range(sリンク設定カラム & CStr(ii)).Value = “” Then
Exit For
End If
表示文字列 = Range(sリンク設定カラム & CStr(ii)).Value
アドレス = Range(sリンク設定カラム & CStr(ii)).Value
Range(sリンク設定カラム & CStr(ii)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:=アドレス, TextToDisplay:=表示文字列
With Selection.Font
現色 = .ColorIndex
.Name = “ＭＳ Ｐゴシック”
.Size = 9
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleSingle
If Range(sリンク設定カラム & CStr(ii)).Interior.ColorIndex = 1 Or _
Range(sリンク設定カラム & CStr(ii)).Interior.ColorIndex = 3 Or _
Range(sリンク設定カラム & CStr(ii)).Interior.ColorIndex = 5 Or _
Range(sリンク設定カラム & CStr(ii)).Interior.ColorIndex = 11 Then
.ColorIndex = 2
End If
End With
Debug.Print
Next ii
End Sub
Posted by admin on 2月 21, 2011
EXCEL VBA 自動計算のON-OFF
Posted under EXCEL-VBA
EXCEL VBA 自動計算のON-OFF
‘– 自動計算OFF —
Application.Calculation = xlCalculationManual
‘– 自動計算ON —
Application.Calculation = xlCalculationAutomatic
※OFFしたら、後でONしておく事。
（動いていないと勘違いするから・・・）
Application.Calculation = xlCalculationManual
‘– 自動計算ON —
Application.Calculation = xlCalculationAutomatic
※OFFしたら、後でONしておく事。
（動いていないと勘違いするから・・・）
Posted by admin on 2月 21, 2011
EXCEL VBA 色コード
Posted under EXCEL-VBA
EXCEL VBA 色コード
色の指定[.Interior.ColorIndex]
| 0 | 色無し | -4142：： | |
| 1 | 1：&H000000：RGB(0,0,0) | ||
| 2 | 2：&HFFFFFF：RGB(255,255,255) | ||
| 3 | 3：&H0000FF：RGB(255,0,0) | ||
| 4 | 4：&H00FF00：RGB(0,255,0) | ||
| 5 | 5：&HFF0000：RGB(0,0,255) | ||
| 6 | 6：&H00FFFF：RGB(255,255,0) | ||
| 7 | 7：&HFF00FF：RGB(255,0,255) | ||
| 8 | 8：&HFFFF00：RGB(0,255,255) | ||
| 9 | 9：&H000080：RGB(128,0,0) | ||
| 10 | 10：&H008000：RGB(0,128,0) | ||
| 11 | 11：&H800000：RGB(0,0,128) | ||
| 12 | 12：&H008080：RGB(128,128,0) | ||
| 13 | 13：&H800080：RGB(128,0,128) | ||
| 14 | 14：&H808000：RGB(0,128,128) | ||
| 15 | 15：&HC0C0C0：RGB(192,192,192) | ||
| 16 | 16：&H808080：RGB(128,128,128) | ||
| 17 | 17：&HFF9999：RGB(153,153,255) | ||
| 18 | 18：&H663399：RGB(153,51,102) | ||
| 19 | 19：&HCCFFFF：RGB(255,255,204) | ||
| 20 | 20：&HFFFFCC：RGB(204,255,255) | ||
| 21 | 21：&H660066：RGB(102,0,102) | ||
| 22 | 22：&H8080FF：RGB(255,128,128) | ||
| 23 | 23：&HCC6600：RGB(0,102,204) | ||
| 24 | 24：&HFFCCCC：RGB(204,204,255) | ||
| 25 | 25：&H800000：RGB(0,0,128) | ||
| 26 | 26：&HFF00FF：RGB(255,0,255) |
Posted by admin on 2月 21, 2011
EXCEL VBA EXCELブックopen close
Posted under EXCEL-VBA
EXCELブックopen close
‘### 現在のアクティブを記憶
Set ReturnBook = ActiveWorkbook
Set OUTPUT = Sheets(“OUTPUT”)
Set ReturnBook = ActiveWorkbook
Set OUTPUT = Sheets(“OUTPUT”)
‘### EXCELのブックをＯＰＥＮ
Set EXCELBook = Workbooks.Open(EXCELファイル名)
Set EXCEL一覧 = EXCELBook.Sheets(“リンクサイト一覧”)
‘### 元のアクティブに戻す
ReturnBook.Activate
——————————————-
EXCELBook.Close SaveChanges:=False
Set EXCEL一覧 = Nothing
Set EXCELBook = Nothing
Posted by admin on 2月 21, 2011
EXCEL VBA セルクリア
Posted under EXCEL-VBA
値＋書式まで全クリア
ActiveSheet.Range(“X2”, “X5000”).Clear
値のみクリア
ActiveSheet.Range(“X2”, “X5000”). ClearContents
書式のみクリア
ActiveSheet.Range(“X2”, “X5000”). ClearFormats