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

超私的なニュース・備忘録・作業ログをメモします。

Posted by admin on 3月 10, 2011

EXCEL VBA プロセスのKILL

Posted under 未分類

Sub pkill()

‘Option Explicit
On Error Resume Next

Dim strProcName ‘ 終了するプロセス名
Dim objProcList ‘ プロセス一覧
Dim objProcess ‘ プロセス情報
Dim lngKillNum ‘ 終了したプロセス数

strProcName = “iexplore.exe”
lngKillNum = 0

Set objProcList = GetObject(“winmgmts:”).InstancesOf(“win32_process”)
For Each objProcess In objProcList
If LCase(objProcess.Name) = strProcName Then
objProcess.Terminate
If Err.Number = 0 Then
lngKillNum = lngKillNum + 1
Else
Debug.Print “エラー: ” & Err.Description
End If
End If
Next
If lngKillNum > 0 Then
Debug.Print strProcName & ” を ” & lngKillNum & ” 個強制終了しました。”
Else
Debug.Print strProcName & ” が見つかりませんでした。”
End If

Set objProcList = Nothing

End Sub

参考

http://www.whitire.com/vbs/tips0198.html

Posted by admin on 3月 3, 2011

Ktai Styleのテーマ配布

Posted under wordpress, wpテーマ, wpプラグイン

 
Lovelog+*
  ・Ktai-Styleのテーマ、Lovelog Ver6k(ver 1.1)
  ・Ktai Styleのテーマ、Lovelog Ver16k(ver )
  ・Ktai Styleのテーマ、Lovelog+* ver8k(ver )
  ・Ktai Styleのテーマ、Lovelog Ver21k(ver )

Posted by admin on 3月 3, 2011

WordPress 3.X用テーマサイト

Posted under wordpress, wpテーマ

 
採取:2011/3/3
mono-lab
  ・WordPress テーマ neutral 1.0
  ・Piano Black 2.0 beta
  ・monochrome 3.0 beta

Lovelog+*
  ・Lovelog+* Ver3 雪の結晶(ver )
  ・Lovelog+* ver7 Cotton POP
  ・Lovelog+* verVer19.1(ver 1.1)
 
WordPress 3.0 から可能な素敵なテーマ20本
  ・ASimpleMagazine.zip
  ・autofocusplus-1.1.zip
  ・berylliumous.zip
  ・boldy.zip
  ・delta.zip
  ・Designora-theme.zip
  ・dimenzion.zip
  ・epsilon.zip
  ・MobileWorld.zip
  ・mystique-wordpress.zip
  ・Nicol.zip
  ・photoblog.zip
  ・shaken-grid-2.1.zip
  ・spectre.zip
  ・Tech9.zip
  ・zeta.zip
 
WordPressと趣味のサイト
  ・wagara-haru.zip 和柄-春
  ・helloween.zip ハロウィン
  その他有り
 
N.Design Studio
  ・itheme.zip
 
WPCrunchy
  ・newspress-2.0.4.zip
  ・obscure.zip
 
Padd Solutions
 
New WordPress Themes

Posted by admin on 3月 3, 2011

EXCEL VBA ファイル存在チェック&削除

Posted under EXCEL-VBA, html

EXCEL VBA ファイル存在チェック&削除

If Dir(“C:\Sample\aaa.txt”) <> “” Then
kill “C:\Sample\aaa.txt”
End If

Posted by admin on 3月 3, 2011

html img src 画像の回り込み

Posted under html, ホームページ関連

html img src 画像の回り込み

画像の位置揃えと
文字の回り込み
記入例 画像と文字の表位置の関係
上揃え <img align=”top”> 画像は左寄せ、文字は画像の右上に1行表示
中央揃え <img align=”midlde”> 画像は左寄せ、文字は画像の右中央から1行表示
下揃え
初期位置はこれ
<img align=”bottom”> 画像は左寄せ、文字は画像の右下に1行表示
左寄せ <img align=”left”> 画像は左寄せ、文字は画像の右上から複数行回り込み
右寄せ <img align=”right”> 画像は右寄せ、文字は画像の左上から複数行回り込み
Posted by admin on 2月 22, 2011

Contact Form 7 (日本語)

Posted under wpプラグイン

WordPress プラグイン Contact Form 7 (日本語)

Contact Form 7

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

EXCEL VBA 重複行削除

Posted under EXCEL-VBA

EXCEL VBA 重複行削除

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

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 = “MS Pゴシック”
.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しておく事。
(動いていないと勘違いするから・・・)
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)