Option Compare Database 'テキスト中、接頭文字固定のキーコードを抽出。 '複数埋め込まれている場合はカンマ区切りで返す 'Usage 'ret = GetKeyCode(検索対象となるテキスト,キーコード特定用の接頭文字,接頭文字以降の連番数) Public Function GetKeyCode…

たぶん出典元はここ。 http://www.h3.dion.ne.jp/~sakatsu/holiday_logic.htm#Access「M_休日」テーブル内の「休日」フィールド(日付型)に、 土日以外の休日が登録されている前提です。 元ネタの方が営業日の正負分岐の書き方がいい感じ。 土日以外で休日指…

http://blog.livedoor.jp/yorinaga/archives/51557918.html がネットワークドライブに対応してなかったのでカスタマイズ。 Public Function MakeFolder(strPath As String) As Boolean On Error GoTo ErrHandler On Error GoTo 0 Dim pos1 As Integer Dim po…

Dim bFlag As Boolean Private Sub Worksheet_Change(ByVal Target As Range) Static sAfter As String '更新後のセル範囲アドレス Static sBefore As String '更新前のセル範囲アドレス If Target.Row <= 5 Or Target.Column <= 5 Then Exit Sub If bFlag T…

'holiday(祝祭日テーブル)を使用して指定した日付が祝祭日、土日かをチェックする関数 '祝祭日、土日の場合はTrueを返す Public Function CheckHoliday(dt As Date) As Boolean '時刻が含まれるデータが指定された場合は考慮して日付部分だけ(時刻を00:00:00…

XMLは基本的に正しいものを使う前提で。XSLのお作法はこんな感じ。たぶん、正しくないが取り敢えず。 <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> <xsl:template match="/"> </xsl:template></xsl:stylesheet>

http://support.microsoft.com/kb/313937/ja

IIf(Weekday(DateSerial(Year(Date()),Month(Date()),0))>=5,DateSerial(Year(Date()),Month(Date()),0)-Weekday(DateSerial(Year(Date()),Month(Date()),0))+5,DateSerial(Year(Date()),Month(Date()),0)-Weekday(DateSerial(Year(Date()),Month(Date()),0)…

とりあえずメモ。 =MID(DEC2BIN(ROW()-[出力開始行]-1,[チェック項目数]),COLUMN()-[出力開始列]-1,1)

地図名 場所 Boss 地形 敵 深 S A B オンリーモンスター 通称・備考 怒れる獣Lv1 サンマロウ 黒竜丸 洞窟 3 2 0 0 0 うす暗き獣Lv1 西セントシュタイン 黒竜丸 遺跡 1 3 0 0 0 臼倉 怒れる岩Lv13 サンマロウ ハヌマーン 洞窟 3 2 0 0 0 ゆらめく大地Lv18 サ…

主に通勤時間帯、小田急線〜千代田線〜(日比谷線)〜銀座線辺りでばら撒いています。 普段は自力発掘のメタキンオンリー「けだかき空の地図Lv55」をセットしてますが、 他に欲しい地図がありましたらコメントでも付けてください。 魔王地図も適当に持っていま…

A1形式⇒R1C1形式で書き換えるのが面倒な人向け? COLUMN()を任意の列番号が入ったセルにして、INDIRECT関数と組み合わせればいけそう。IF分岐を使ったパターン =IF(COLUMN()分岐なしパターン =SUBSTITUTE(CHAR(INT((COLUMN()-1)/26)+64)&CHAR(MOD(COLUMN()-1,…

javascript関数部分 // URLからIDをGet⇒表示・非表示の切替 // Indexからの遷移の場合は表示させるのみ(非表示への切替は行わない)。 function test(id){ if(id.match(/to/) == "to"){ ChgIconMode("main" + document.getElementById(id).getAttribute("href…

Public Function Chk_機種依存(strTarget As String) As String Dim strReturn As String 'エラー文字の蓄積用 Dim intStrLen As Integer 'strTargetの文字長 Dim intChar As Integer '判定用の文字コード Dim i As Integer 'counter intStrLen = Len(strTar…

一箇所バグがあったので修正 Public Function GetFontInterior(rCell As Range) As String Dim i As Long, j As Long 'セルのテキスト評価用カウンタ Dim sRet As String '返すテキストを格納 Dim sAttr As String 'style に入れる属性値 Dim nDone As Long …