☆超私的☆ニュース・備忘録・作業ログ

WordPress のお問い合わせフォームをお探しですか?
シンプルで柔軟なのが欲しいなら、Contact Form 7 をおすすめします。
フォームやメールを柔軟にデザインできるし、複数のフォームを作ることが可能です。
さらに、AJAX を使った送信、CAPTCHA、Akismet によるスパムフィルタリング、ファイルのアップロード、などなど、豊富な機能をサポートしています。

Sub 重複行削除()
開始行 = 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

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

‘– 自動計算OFF —
Application.Calculation = xlCalculationManual
　
‘– 自動計算ON —
Application.Calculation = xlCalculationAutomatic
　
※OFFしたら、後でONしておく事。
（動いていないと勘違いするから・・・）

色の指定[.Interior.ColorIndex]