SELECTION

「SELECTION」を含むブログ

• SELECTIONを含むブログはまだありません。
• SELECTIONについてのブログが作成されると自動的に表示されます。 今すぐブログを作成する

「SELECTION」を含むウィキ

2009年10月26日 09:04:00

• 多智花 八雲 - VitaminZ 攻略情報メモ @ ウィキ - 多智花 八雲  2009-10-26 09:04 記事の概要：
  キャラクター別攻略情報成宮 天十郎　不破 千聖　多智花 八雲　嶺 アラタ方丈 慧　方丈 那智　裏聖帝秘譚試験問題　各「STORY」発生条件　ＥＸＴＲＡＡ４【多智花 八雲】CHAPTER 01 【ACTION POINT】 【SELECTION POINT】CHAPTER 02 【ACTION POINT】 【SELECTION POINT】CHAPTER 03 【ACTION POINT】 【SELECTION POINT】CHAPTER 04 【ACTION POINT】 【SELECTION POINT】CHAPTER 05 【ACTION POINT】 【SELECTION POINT】CHAPTER 06 【ACTION POINT】 【SELECTION POINT】CHAPTER 07 【ACTION POINT】 【SELECTION POINT】CHAPTER 08 【ACTION POINT】 【SELECTION POINT】CHAPTER 09 【ACTION POINT】 【SELECTION POINT】CHAPTER 10 【ACTION POINT】 【SELECTION POINT】CHAPTER 11 【ACTION POINT】 【SELECTION POINT】CHAPTER 12 【ACTION POINT】 【SELECTION POINT】【ZAPPING POINT】　【URTIMATA SELECTION】【CHAPTER TITLE】　【DATE TITLE】　【ENDING TITLE】▲TOP【ACTION POINT】 CHAPTER 01【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 勝ってじゃないもん、負けてだも～ん。 8 UP 8 UP パパの会社の部長兼ぼくの付き人兼、ボディーブローだよ 8 UP 8 UP センセーもお刺身をつめて、マコちゃんって呼んであげてね 8 UP 8 UP 玄関が壊れて出入りが大変～！？ 8 UP 8 UP じゃ、Good mourning！ 8 UP 8 UP 夢は右大臣なんだよ～、おしゃれなイメージが左大臣なの 8 UP 8 UP う～んと……朝ご飯が美味い屋横町、かな？ 8 UP 8 UP ということは、う～ん、ウマイヤだから……イと、ヤで……18年？ 8 UP 8 UP はいは～い。センセー、キボン点って何ですか～？ 8 UP 8 UP 勉強って、理解、Fu～No～なんだよ 8 UP 8 UP 夢は右大臣なんだよ～、おしゃれなイメージが左大臣なの。 8 UP 8 UP う～んと……朝ご飯が美味い屋横町かな？ 8 UP 8 UP ということは、う～ん、ウマイヤだから……イと、ヤで……１８年？ 8 UP 8 UP はいは～い。センセー、キボン点って何ですか～？ 8 UP 8 UP 勉強って、理解、Fu～No～なんだよ。 8 UP 8 UP CHAPTER 02【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 03【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 04【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 05【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 06【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 07【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 08【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 09【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 10【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 11【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 CHAPTER 12【ACTION POINT】　　⇒【SELECTION POINT】 ▲TOP セリフ 恋愛値 偏差値 ▲TOP【SELECTION POINT】 CHAPTER 01【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 「じゃ、いくよ～。ジャンケン・グー！」 選択肢 恋愛値 偏差値 グー 17 UP － チョキ － － パー － 3 UP 「多智花君！」 選択肢 恋愛値 偏差値 もっと真面目に考えて。 － 3 UP 本当はわかっているはず。 17 UP － １００点満点。 5 DOWN － CHAPTER 02【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 03【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 04【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 05【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 06【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 07【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 08【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 09【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 10【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 11【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 CHAPTER 12【SELECTION POINT】　　⇒【ACTION POINT】 ▲TOP 選択肢 恋愛値 偏差値 ▲TOP【ZAPPING POINT】 【ZAPPING POINT】 CHAPTER キャラ 色 選択肢 CHAPTER 01 不破 千聖 RED 春尽 BLUE 六花 CHAPTER 02 嶺 アラタ RED 殺し屋風 BLUE スパイ風 CHAPTER 05 成宮 天十郎 RED 山側 BLUE 海側 CHAPTER 06 方丈 慧 RED 君は生徒なの BLUE 私は先生なの CHAPTER 07 七瀬 瞬 RED 私なりの方法で…… BLUE 理由を説明する CHAPTER 09 方丈 那智 RED トナカイガール BLUE サンタガール CHAPTER 11 七瀬 瞬 RED 瑞希に飛びつく BLUE 瞬に抱きつく １ ２ ３ ４ ５ ６ ７ APPEND STORY 01 RED RED BLUE RED RED － － APPEND STORY 02 BLUE BLUE RED BLUE BLUE － － APPEND STORY 03 － － － － － RED BLUE ZAPPING POINT 天07 千07 嶺11 慧07 那03 雲07 雲11▲TOP【URTIMATA SELECTION】 【URTIMATA SELECTION】 CHAPTER 恋愛値 偏差値 CHAPTER 01 5 UP CHAPTER 02 CHAPTER 03 CHAPTER 04 CHAPTER 05 CHAPTER 06 CHAPTER 07 CHAPTER 08 CHAPTER 09 CHAPTER 10 CHAPTER 11 CHAPTER 12 ▲TOP【CHAPTER TITLE】【CHAPTER TITLE】PROLOGUE 1 『プロローグ』CHAPTER 01 『ぼくにはユメがあるっ！？』CHAPTER 02 『』CHAPTER 03 『』CHAPTER 04 『』CHAPTER 05 『』CHAPTER 06 『』CHAPTER 07 『』CHAPTER 08 『』CHAPTER 09 『』CHAPTER 10 『』CHAPTER 11 『』CHAPTER 12 『』 ▲TOP【DATE TITLE】【DATE TITLE】Spring Date　『』Summer Date　『』Autumn Date　『』Winter Date　『』▲TOP【ENDING TITLE】【ENDING TITLE】PERFECT STORY　『』DREAM STORY　『』NORMAL STORY　『』APPEND STORY 01　『』APPEND STORY 02　『』APPEND STORY 03　『』SECRET STORY　『』▲TOP

2009年11月9日 19:49:59

• 箱形選択領域に連番を挿入するマクロ - EmEditorみんなでまとめサイト - 箱形選択領域に連番を挿入するマクロ  2009-11-09 19:49 記事の概要：
  説明 箱形選択された領域に連番を挿入する 箱形選択して実行すると開始番号の入力を求められる そのときに、数字の前方に空白や0をいれると、先頭文字を使い文字列長にあわせて桁をあわせる既知の問題 実行後、未選択状態になる 実行後、カーソル位置が元の選択領域の左上の位置にしてしまっている 「元に戻す」で一気に戻せない 折り返しを気にして、後ろから処理してしまっているソース(.jsee)if( document.selection.IsEmpty || (document.selection.Mode eeModeMask) != eeModeBox ){ alert(箱形選択してください);}else{ // 開始番号の入力を求める var ScriptControl = new ActiveXObject(ScriptControl); ScriptControl.Language = VBScript; ScriptControl.AddCode(Function Input(x,y,z)\nInput=InputBox(x,y,z)\nEnd Function); var str = ScriptControl.Run(Input, 開始番号を入力してください, 連番挿入マクロ, 1); if( !str ) Quit(); var no = Number( str ); while( isNaN(no) ){ str = ScriptControl.Run(Input, 開始"番号"を入力してください, 連番挿入マクロ, str); if( !str ) Quit(); no = Number( str ); } // 桁あわせのための情報を得る var digit = str.length; var fill = str.substring(0,1); if( fill.length = 0 ) fill = ; // 選択領域の情報を得る var tx = document.selection.GetTopPointX( eePosView ); var ty = document.selection.GetTopPointY( eePosView ); var bx = document.selection.GetBottomPointX( eePosView ); var by = document.selection.GetBottomPointY( eePosView ); var lx = (tx bx) ? tx bx, rx = (tx bx) ? tx bx, y, n = by - ty + no; // 挿入 for( y = by ; y = ty ; --y, --n ){ var s = + n; while( s.length digit ) s = fill + s; document.selection.SetActivePoint( eePosView, lx, y, false ); document.selection.SetActivePoint( eePosView, rx, y, true ); document.selection.Text = s; } // カーソルを、とりあえず元の選択領域の左上の位置にする document.selection.SetActivePoint( eePosView, lx, ty, false );}

2010年01月12日 21:01:22

• セキュリィー関連メモ - MONOSEPIA （世の中みぎひだりごちゃまぜぇ～） - セキュリィー関連メモ  2010-01-12 21:01 記事の概要：
  ■　I finaly uninstalled Security Tool / Security Toolをやっと削除♪ 「パソコンの調子が悪い　「ハワイALOHA SELECTION アロハ・セレクション」より.

2009年11月13日 21:40:01

• Excel - redcloud @ ウィキ - Excel  2009-11-13 21:40 記事の概要：
  目次目次前提条件Excel ～2003マクロツール前提条件Excel ～2003マクロツールOption ExplicitDim varActive_Cell As LongPublic Function searchElement(varEntKname As String) As Boolean Dim varMsgTxt As String Dim varMsgStyle As String Dim varMsgTitle As String Dim varMsgResp As Long On Error Resume Next Selection.Find(What=varEntKname, After=ActiveCell, LookIn=xlFormulas, LookAt _ =xlWhole, SearchOrder=xlByRows, SearchDirection=xlNext, MatchCase= _ False).Activate varActive_Cell = ActiveCell.Row If Err 0 Then Err.Clear varMsgTxt = "項目がみつかりませんでした。 （" varEntKname "）" Chr(13) Chr(13) "無視して続行しますか？" varMsgStyle = vbYesNo + vbQuestion + vbDefaultButton1 varMsgTitle = "Excel Macro" varMsgResp = MsgBox(varMsgTxt, varMsgStyle, varMsgTitle) If varMsgResp vbYes Then End Else searchElement = False End If Else searchElement = True End If End FunctionPublic Function partSearchElement(varEntKname As String) As Boolean Dim varMsgTxt As String Dim varMsgStyle As String Dim varMsgTitle As String Dim varMsgResp As Long On Error Resume Next Selection.Find(What=varEntKname, After=ActiveCell, LookIn=xlFormulas, LookAt _ =xlPart, SearchOrder=xlByRows, SearchDirection=xlNext, MatchCase= _ False).Activate varActive_Cell = ActiveCell.Row If Err 0 Then Err.Clear varMsgTxt = "項目がみつかりませんでした。 （" varEntKname "）" Chr(13) Chr(13) "無視して続行しますか？" varMsgStyle = vbYesNo + vbQuestion + vbDefaultButton1 varMsgTitle = "Excel Macro" varMsgResp = MsgBox(varMsgTxt, varMsgStyle, varMsgTitle) If varMsgResp vbYes Then End Else partSearchElement = False End If Else partSearchElement = True End If End FunctionPublic Sub deleteSameName() Dim varMsgTxt As String Dim varMsgStyle As String Dim varMsgTitle As String Dim varMsgResp As Long Dim varGyou As Long Dim varMaxGyou As Long Dim Wk01 As String Dim Wk02 As String Dim varidx1 As Long Dim WK_SCREEN_FLG As String varMsgTxt = "ある欄の項目に対し同一内容の行を削除します。" Chr(13) Chr(13) "よろしいですか？" varMsgStyle = vbYesNo + vbQuestion + vbDefaultButton1 varMsgTitle = "Excel Macro" varMsgResp = MsgBox(varMsgTxt, varMsgStyle, varMsgTitle) If varMsgResp vbYes Then Exit Sub End If Wk01 = InputBox("どの欄に対して実施しますか？", "Excel Macro") varidx1 = userColumn(Wk01) Sheetの最大行を逆ｻｰﾁ Range(Wk01 "65000").Select Selection.End(xlUp).Select varMaxGyou = ActiveCell.Row WK_SCREEN_FLG = InputBox("Windowの描画を行いますか？ (Y / N)", "Excel Macro") If WK_SCREEN_FLG = "Y" Or WK_SCREEN_FLG = "y" Then 画面の更新抑止 Application.ScreenUpdating = False End If varGyou = 1 Wk02 = Trim(ActiveSheet.Cells(varGyou, varidx1)) Do Until varGyou varMaxGyou If Wk02 = Trim(ActiveSheet.Cells(varGyou + 1, varidx1)) Then Rows(varGyou + 1 "" varGyou + 1).Select Selection.Delete Shift=xlUp varGyou = varGyou - 1 varMaxGyou = varMaxGyou - 1 Else Wk02 = Trim(ActiveSheet.Cells(varGyou, varidx1)) varGyou = varGyou - 1 End If varGyou = varGyou + 1 Wk02 = Trim(ActiveSheet.Cells(varGyou, varidx1)) Loop 画面の更新抑止解除 Application.ScreenUpdating = False MsgBox "同一内容項目行削除が完了しました。"End SubPublic Sub compareAC() Dim varMaxGyou1 As Long Dim varMaxGyou2 As Long Dim varidx1 As Long Dim varSarRtn As Boolean Sheetの最大行をｻｰﾁ Range("A65536").Select Selection.End(xlUp).Select varMaxGyou1 = ActiveCell.Row Sheetの最大行をｻｰﾁ Range("C65536").Select Selection.End(xlUp).Select varMaxGyou2 = ActiveCell.Row For varidx1 = 2 To varMaxGyou1 文字絶対検索 Range("C1C" varMaxGyou2).Select varSarRtn = searchElement(ActiveSheet.Cells(varidx1, 1)) If varSarRtn = True Then ActiveSheet.Cells(varidx1, 2) = "○" Range("A" varidx1 "A" varidx1).Select With Selection.Interior .ColorIndex = 39 End With ActiveSheet.Cells(varActive_Cell, 4) = "○" Range("C" varActive_Cell "C" varActive_Cell).Select With Selection.Interior .ColorIndex = 39 End With Else End If Next varidx1End SubPublic Sub partCompareAC() Dim varMaxGyou1 As Long Dim varMaxGyou2 As Long Dim varidx1 As Long Dim varSarRtn As Boolean Sheetの最大行をｻｰﾁ Range("A65536").Select Selection.End(xlUp).Select varMaxGyou1 = ActiveCell.Row Sheetの最大行をｻｰﾁ Range("C65536").Select Selection.End(xlUp).Select varMaxGyou2 = ActiveCell.Row For varidx1 = 2 To varMaxGyou1 文字絶対検索 Range("C1C" varMaxGyou2).Select varSarRtn = partSearchElement(ActiveSheet.Cells(varidx1, 1)) If varSarRtn = True Then ActiveSheet.Cells(varidx1, 2) = "○" Range("A" varidx1 "A" varidx1).Select With Selection.Interior .ColorIndex = 39 End With ActiveSheet.Cells(varActive_Cell, 4) = "○" Range("C" varActive_Cell "C" varActive_Cell).Select With Selection.Interior .ColorIndex = 39 End With Else End If Next varidx1End SubPublic Sub compareACandInput() Dim varMaxGyou1 As Long Dim varMaxGyou2 As Long Dim varidx1 As Long Dim varSarRtn As Boolean Dim varPgm As String Sheetの最大行をｻｰﾁ Range("A63000").Select Selection.End(xlUp).Select varMaxGyou1 = ActiveCell.Row Sheetの最大行をｻｰﾁ Range("C63000").Select Selection.End(xlUp).Select varMaxGyou2 = ActiveCell.Row For varidx1 = 2 To varMaxGyou1 文字絶対検索 varPgm = StrConv(ActiveSheet.Cells(varidx1, 1), 4) Range("C1C" varMaxGyou2).Select varSarRtn = searchElement(ActiveSheet.Cells(varidx1, 1)) If varSarRtn = True Then ActiveSheet.Cells(varidx1, 2) = ActiveSheet.Cells(varActive_Cell, 4) Else End If Next varidx1End SubPublic Sub partCompareACandInput() Dim varMaxGyou1 As Long Dim varMaxGyou2 As Long Dim varidx1 As Long Dim varSarRtn As Boolean Dim varPgm As String Sheetの最大行をｻｰﾁ Range("A63000").Select Selection.End(xlUp).Select varMaxGyou1 = ActiveCell.Row Sheetの最大行をｻｰﾁ Range("C63000").Select Selection.End(xlUp).Select varMaxGyou2 = ActiveCell.Row For varidx1 = 2 To varMaxGyou1 文字絶対検索 varPgm = StrConv(ActiveSheet.Cells(varidx1, 1), 4) Range("C1C" varMaxGyou2).Select varSarRtn = partSearchElement(ActiveSheet.Cells(varidx1, 1)) If varSarRtn = True Then ActiveSheet.Cells(varidx1, 2) = ActiveSheet.Cells(varActive_Cell, 4) Else End If Next varidx1End SubPublic Function partSearchElement(varEntKname As String) As Boolean Dim varMsgTxt As String Dim varMsgStyle As String Dim varMsgTitle As String Dim varMsgResp As Long On Error Resume Next Selection.Find(What=varEntKname, After=ActiveCell, LookIn=xlFormulas, LookAt _ =xlPart, SearchOrder=xlByRows, SearchDirection=xlNext, MatchCase= _ False).Activate varActive_Cell = ActiveCell.Row If Err 0 Then Err.Clear varMsgTxt = "項目がみつかりませんでした。 （" varEntKname "）" Chr(13) Chr(13) "無視して続行しますか？" varMsgStyle = vbYesNo + vbQuestion + vbDefaultButton1 varMsgTitle = "Excel Macro" varMsgResp = MsgBox(varMsgTxt, varMsgStyle, varMsgTitle) If varMsgResp vbYes Then End Else partSearchElement = False End If Else partSearchElement = True End If End FunctionPublic Function userColumn(WK_Retu As String) As Long A～Z → 数字 Dim varRet As String Dim varidx1 As Long Dim Wk01 As String Dim Wk02 As String Dim Wk03 As String Const varALP As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim WK_FLG As String Wk01 = StrConv(WK_Retu, vbNarrow) Wk02 = StrConv(Wk01, vbUpperCase) WK_FLG = "" Select Case Len(Wk02) Case 1 処理なし WK_FLG = "1" Case 2 Wk03 = Right(Wk02, 1) Wk02 = Wk03 WK_FLG = "2" Case Else MsgBox "３桁の入力はできません。" End End Select varidx1 = InStr(1, varALP, Wk02) If varidx1 = 0 Then MsgBox "欄の指定がＡ～Ｚではありません" End End If Select Case WK_FLG Case "1" 処理なし Case "2" varidx1 = varidx1 + 26 Case Else MsgBox "内部処理誤り" End End Select userColumn = varidx1 End Function

2009年10月20日 01:31:09

• SELECTION - ＲＰＧツクール製ＲＰＧ - SELECTION  2009-10-20 01:31 記事の概要：
  SELECTIONタグ 2000 サスペンス 中編 現代 紹介動画 Ａ～Ｘ 基本情報ランタイム：2000作品ＤＬ：ver.1.57パッチＤＬ：作者サイト：A.B.M.専用ページ：SELELCTION攻略ページ攻略情報プレイ動画など 名前 コメント だいぶ前にやったので詳細は覚えていないのだが、 ツクール2000好きの自分にとって大変よろしかったという印象が残っている。 主人公のキャラ造形も良く、ラストでなかなかの感慨を覚えた覚えが。 -- 名無しさん (2009-01-07 095238)

「SELECTION」を含むコミュニティ

• SELECTIONを含むコミュニティはまだありません。
• SELECTIONについてのコミュニティが作成されると自動的に表示されます。 今すぐコミュニティを作成する

「SELECTION」を含む掲示板

• SELECTIONを含む掲示板はまだありません。
• SELECTIONについての掲示板が作成されると自動的に表示されます。 今すぐ掲示板を作成する

「SELECTION」を含む2ch風掲示板

• SELECTIONを含む2ch風掲示板はまだありません。
• SELECTIONについての2ch風掲示板が作成されると自動的に表示されます。 今すぐ2ch風掲示板を作成する

「SELECTION」を含む高性能掲示板

• SELECTIONを含む高性能掲示板はまだありません。
• SELECTIONについての高性能掲示板が作成されると自動的に表示されます。 今すぐ高性能掲示板を作成する

「SELECTION」を含むお絵かき掲示板

• SELECTIONを含むお絵かき掲示板はまだありません。
• SELECTIONについてのお絵かき掲示板が作成されると自動的に表示されます。 今すぐお絵かき掲示板を作成する