このようにシートに配置してあるコンボボックスの今選択されている文字列を取得します。 Function getCategory() As String getCategory = Worksheets("SheetName").ComboBox_Category.Value End Function

Function sort_sheet(sheet_name As String, sort_col As String, desk_flg As Boolean) As Integer Dim sheet_name As String Dim row_count As Integer row_count = getRowCount() 'シートの行数を取得する↓参照 If desk_flg Then Sheets(sheet_name).Rang…

Function isval(str As String) As Boolean Dim ret As Boolean Dim ret1, ret2 As Variant ret1 = InStr(1, str, "#VALUE!", vbBinaryCompare) ret2 = InStr(1, str, "#DIV/0!", vbBinaryCompare) If (ret1 <> 0 And IsNull(ret1) = False) Or (ret2 <> 0 A…

解析方法４つの特徴 ウェブページの解析のうち入手が容易で使い方が手軽な方法として４つあげました。それぞれに特徴があるので、サイトの特性に応じた方法を採用するのが良いと思います。ちなみにわたしはアルファブログ、2ch、Yahoo、OKwave、モバゲーなど…

Sub save_data() Dim fname As String fname = <filename> Dim row_count As Integer ' コピー、ブック追加、貼り付け、保存 Workbooks.Add Workbooks(1).Sheets("SheetName").Range(COL_DEKI & SHEET_OFFSET & ":" & COL_DEKI & row_count).Copy ActiveSheet.Range(CO</filename>…

<p></p>

Function getCellArray(COL As String) As Variant Dim ary(50) As Variant Dim ite As Integer For ite = 0 To Worksheets("SheetName").Cells(Rows.count, COL).End(xlUp).row ary(ite) = Worksheets("SheetName").Range(COL & ite + 1).Value Next ite ge…

Public Const COL_CODE As String = "A" Public Const COL_MARKET As String = "B" Public Const COL_CATEGORY As String = "C" Public Const COL_CATEGORY2 As String = "D" Public Const COL_ZENDEKI As String = "E" Public Const COL_MEDO_POS As String…

１．TkSQLiteインストール http://reddog.s35.xrea.com/wiki/TkSQLite.html tksqlite-0.5.8-win32-bin.zip ２．SQLiteのデータベースファイルをローカルにダウンロード ３．TkSQLiteを使ってデータベースファイルを最適化 ファイル > 開く > データベースフ…

ぱんくずリストとは、トップページから現在表示しているページまでの階層を示したリストのこと。「パンくずリスト」という名称は、童話「ヘンゼルとグレーテル」で、森の中で迷わないようにパンくずを少しずつ落としながら歩いたというところからきていると…

Function padZero(n As Integer, keta As Integer) padZero = Right(n + 10 ^ keta, keta) End Function

１．ダウンロード http://plugins.movabletype.org/imt/ ２．解凍して、下記のようにデプロイ mt-static/plugins/iMT → [MT]/mt-static/plugins/ plugins/iMT → [MT]/plugins/ あとはiPhoneからPC用と同じアドレスにアクセスするだけ。

## 改行削除 $text= ereg_replace("\r|\n","",$text); ## スラッシュでクォートする $text = addslashes($text); ## タグ文字を削除する $text = strip_tags($text); ## 文字をHTML エンティティにする。 $text = htmlspecialchars($text); ## HTMLエンティ…

$timestamp = time(); $date_str = date('Y/m/d(D) H:i', $timestamp); echo $date_str; 上記の場合、"2010/01/18(Mon) 12:23" という形式になる。 フォーマット文字 説明 a 午前／午後（am または pm） A 午前／午後（AM または PM） B インターネット時間…

function getDatestr($text) { # 改行を削除する $text = ereg_replace("\r|\n","",$text); # 正規表現による後方参照 #"2009-01-10T12:22:34" を "01/10 12" にする。 $text = preg_replace("/^\d{4}-(\d{2})-(\d{2})T(\d{2}):\d{2}:\d{2}$/","\\1/\\2 \\3"…

Public Function UrlEncode(ByVal sText As String) As String If Len(sText) = 0 Then Exit Function With CreateObject("ScriptControl") .Language = "JScript" UrlEncode = .CodeObject.encodeURI(sText) End With End Function

Sub printScreen() Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.Run "C:\xxx\CapWrite.exe /C3 /W2 /A5", 1, True Set WshShell = Nothing End Sub CapWriteダウンロード http://wiki.livedoor.jp/kisstys/d/%B2%E8%CC%C…

# 指定文字数 $limit_str = 50; # 利用サンプル $text = textreplace($text); function textreplace($text) { global $limit_str; # 文字が指定文字数より長ければ削除する $str_length = mb_strlen( $text ); if ($str_length>$limit_str){ $text = mb_subs…

4行目からはじまるエクセルシート"SheetName"の有効な行数を取得する。 ' シートオフセット開始行 Public Const SHEET_OFFSET As Integer = 4 ' 有効かどうかを判定する列 Public Const COL_CODE As String = "A" ' 呼び出しサンプル Private Sub CallSample…

Function close() ' 終了前にやっておきたい処理があれば save_data ' 強制終了処理 Application.DisplayAlerts = False '保存しますか？アラートを出さない Application.Quit End Function

楽天ＲＳＳはエクセル上で現在の株価、出来高、気配値などのデータをリアルタイムに表示するツールです。ＲＳＳといってもブログの更新情報のほうじゃなく、リアルタイムスプレットシートの略です紛らわしいです。数年前から楽天から提供されていますが、ぐ…

すでに存在するファイルをFTPサーバーにアップするためのエクセルマクロです。 Function putFileByftp() ' 準備処理 Dim sCmd As String Set WshShell = CreateObject("WScript.Shell") ' ftpをバッチファイル指定して実行する sCmd = "ftp -s:C:\xxx\ftpcmd…

エクセルファイルをタスクに登録する １．新規タスクの作成 スタート ＞ アクセサリ ＞ システムツール ＞ タスク 右クリック ＞ 新規 ＞ タスク ２．タスクの設定 タスクタブ ＞ 実行するファイル名を指定する。 スケジュールタブ ＞ クーロンの要領で設定…

Adsenseより広告を取得する Adsenseログイン、Adsense設定 > 広告の管理 > モバイル コンテンツ向け AdSense 広告ユニット （適当に） デバイス タイプ すべての携帯電話 マークアップ CHTML 文字エンコード EUC-JP 色 （適当に） チャンネル （適当に） ス…

GooglePageRankとは Google社が開発し、自社の検索エンジンに搭載しているWebページの重要度の判定技術で、各Webページの重要度の指数を1から10の数字で表します。算出ロジック等はどこかで論文が発表されているので詳しく知ることもできますし、Google Tool…

いまさら感もここまでくればもう大丈夫(^_^)v １．下記サイトで自分の外部のブログサイトを登録する http://s.hatena.ne.jp/はてなID/blogs ２．ブログにコードをはるヘッダー部分にはるコード <script type="text/javascript" src="http://s.hatena.ne.jp/js/HatenaStar.js"></script> <script type="text/javascript"> Hatena.Star.Token = '自分のBlogのトークン'; Hatena.Star.E…

外部からの見た目アドレスを静的な名前にしたいが、内部的には変更したくない。 という場合は、要求されたURLをリアルタイムで書き換える。 内部的なアドレス index.cgi?mode=individual&eid=xxx 外部から見たアドレス individual_xxx.html 普通はアパッチの…

なんかスタイルシートが昔のに戻ってしまってたんです。 なんかはてならしい不具合って言うか。。。 探しても見つからないのでとりあえずこのままにするとする。今年から株はほどほどにして人の役に立つブログにしていこう抱負的な。

mt4iとは 携帯電話から閲覧したり、コメントや記事の投稿も可能になります。 太鉄さんが個人的に作成・メンテナンスし公開しているもので、シックス・アパート株式会社とは関係ない。 Mt4i公式サイト：http://www.hazama.nu/pukiwiki/index.php?MT4i インス…