regsvr32 oleacc.dll 新しいページでタブの下にでてきて解決．困ったもんだ．
DATEDIF関数を使用します。 書式は、 「=DATEDIF(開始日、終了日、表示形式)」 です。 表示形式は、 "Y" ： 期間内の満年数 "M" ： 期間内の満月数 "D" ： 期間内の日数 "YM" ： 経過した1年未満の月数 "YD" ： 経過した1年未満の日数 "MD" ： 経過した1月未…
Sub rep_charge() Range("b3").Select lastrow = Range("b3").End(xlDown).Row For i = 3 To lastrow With Selection cur_val = .Value Range(.Offset(, 1), .Offset(, 6)).Select Selection.Replace what:="n", replacement:="", LookAt:=xlPart, _ SearchO…
for private use only memo... http://kakaku.com/item/K0000026397/?cid=shop_g_1_pc最安価格（税込）: \10,700
パソコンを踏み台にして、別のサーバへログオンする． のをつくるのに参考にしているページhttp://lets-go.hp.infoseek.co.jp/bootcd/bootcd9.htmlhttp://itpro.nikkeibp.co.jp/article/COLUMN/20060228/231110/緊急ディスク http://lets-go.hp.infoseek.co.…
Good reference on 'em'. Take a look. http://doubletype.org/wiki/index.php/About_em/ja
ここから↓
Script.aculo.usを使おう！ http://codezine.jp/article/detail/3495
http://msdn.microsoft.com/ja-jp/library/ms143799(SQL.90).aspxsp_dropserver GO sp_addserver , local GO
http://okwave.jp/qa4251853.html Option ExplicitSub prep() 'テストシート作成 With Sheets.Add .Rectangles.Add(100, 100, 100, 10).OnAction = "try" .Rectangles.Add(300, 100, 100, 10).OnAction = "try" End With End SubSub try() Static x As Strin…
http://www2.odn.ne.jp/excel/xlshortcut.html数式は Ctrl+Shift+@
http://scripting.cocolog-nifty.com/blog/2009/03/wshwsh-b195.html■VB中学校 なかなか http://homepage1.nifty.com/rucio/main/main.htm
VMware Player情でUbuntuを動作させ、 閉じるときのSuspendモードが効かないとメッセージがでるが これは、VMwareの設定で回避できる。端末を起動し、sudo toolboxScriptsの部分のScript Event（4つくらいあるが） それぞれ、Use Scriptのチェックをはずし、…
Becky!ver2では、URLやメールアドレスはクリッカブル機能がついて いるがフォルダは直接できない。file://は使えるので例１： file://c:\program files →これはスペースがあるためNG c:\programがクリッカブルになる 例２： file://\\hostname\日本語 →マル…
http://gigazine.net/index.php?/news/comments/20080324_vertrigoserv/ダウンロードはここ↓ http://vertrigo.sourceforge.net/
Sub tate_iro() SelCol = Selection.Column For Col = 1 To 7 '7セット分 '選択セル列＋２列を選択する Range(Columns(SelCol), Columns(SelCol + 2)).Select If Col Mod 2 = 1 Then With Selection.Interior .ColorIndex = 34 '薄い水色 .Pattern = xlSolid…
HTML内のxxx@cc.co.jpの、メールアドレス部分だけを抜く(?※肯定後読みタグのみ抜く (]*>)
MS SQL 2005 Expressをインストール手順 １．Windows installer 3.1をインストール ２．.NET 2のインストール ３．SQL Server 2005 Express Editionを通常のままインストール ４．SQL Server 2005 Management Studioをインストール(データ管理するため）Acce…
PHP PHP TEST '); if ($dbh == null){ print('接続に失敗しました。'); }else{ print('接続に成功しました。'); } $dbh->query('SET NAMES sjis'); $sql = 'select id, name from shouhin'; $stmt = $dbh->query($sql); while($result = $stmt->fetch(PDO::F…
MySQL コマンドプロンプトではしご高など表示 C:\>mysql -u tkc -p Enter password: *** Welcome to the MySQL monitor. Commands end with ; or \g. Your MySQL connection id is 51 Server version: 5.0.51a-community-nt MySQL Community Edition (GPL)Ty…
1: Sub CreateFolder2(objFSO, strFolder) 2: strParent = objFSO.GetParentFolderName(strFolder) 3: If Not objFSO.FolderExists(strParent) Then 4: CreateFolder2 objFSO, strParent 5: End If 6: objFSO.CreateFolder(strFolder) 7: End Sub 8: 9: Func…
クリップボードの履歴を保持、呼び出しが楽http://www.vector.co.jp/soft/win95/util/se156044.html
Option ExplicitSub prep() 'テストシート作成 With Sheets.Add .Rectangles.Add(100, 100, 100, 10).OnAction = "try" .Rectangles.Add(300, 100, 100, 10).OnAction = "try" End With End SubSub try() Static x As String Dim ws As Worksheet If Len(x) …
Sub circ1() Dim x As Integer Dim y As Integer Dim x1 As Integer Dim y1 As IntegerRange("a1").Select x = ActiveCell.Column y = ActiveCell.Rowx1 = Range(Cells(1, 1), Cells(y, x)).Width y1 = Range(Cells(1, 1), Cells(y, x)).HeightActiveSheet.S…
http://ascii.jp/elem/000/000/170/170212/
http://www2.odn.ne.jp/excel/waza/cformat.html#SEC4
Oracle接続はODBC、DSNが必要 下記をAccessのプロシージャにいれ、単純に実行する by TKC テーブルがあれば確認をする。 Sub ita_import() Dim adoCnn As Object 'ADODB.Connection Dim adoRec As Object 'ADODB.Recordset Dim tblName As String DoCmd.SetW…
数値入力されている値の少数を省くには？ また、10桁表示させるようにし、空いている部分は「*」で埋めるには？例） 1234.564 → ******1234方法） 前提条件 table: t001 column：f1select trunc(f1) from t001とかselect lpad(f1,10,'*')
set ie = createobject("internetexplorer.application") set fs = createobject("scripting.filesystemobject") set fld = fs.getfolder("C:\Documents and Settings\tkclown\デスクトップ") set file1 = fld.createtextfile("html_out.txt")html_out = inp…
そんなに MSN Messenger使っていないのに・・しかもいじっていない時間にSQMが作成されていた！とりあえず消しておこう． del *.sqm
