note4recurrent @ ウィキ

VBA_app

2022-11-22T13:15:09+09:00

Option Explicit Type keisan saveName As String '保存名 payW As String '時給1・月給２ choiceAge As String '年齢区分 workT As Integer '時間 payH As Long '時給（交通費なし） payM As Long '月給（交通費なし）：時給の場合はpayH×workT transport As Integer '交通費 remuneration As Long '月額報酬　月給の場合はそのまま、時給の場合は時給×単価＋交通費 health As Long '健康保険 welfare As Long '厚生年金 care As Long '介護保険 job As Long '雇用保険 End Type Sub 社会保険料算出_Click() '時給か月収が選択されていない場合 Dim choiceHM As String choiceHM = Cells(7, 4).Value If choiceHM = "" Then MsgBox "時給もしくは月給を選択してください。" Exit Sub End If Dim choiceAge As String choiceAge = Cells(7, 6).Value If choiceAge = "" Then MsgBox "年齢を選択してください。" Exit Sub End If Dim hour As Integer Dim transport As Long Dim splInput As Long Dim payInput As Long '入力値が数値じゃない場合メッセージを表示する。 If Not IsNumeric(Cells(5, 8))

VBA_SQL_insert

2022-11-15T15:12:25+09:00

Option Explicit Sub update() ' 一括insert ' datシートのデータからSQL文を生成し実行するただし、このプログラムでは実行はしない Application.ScreenUpdating = False '画面描画の停止 ' SQL実行 Dim str As Variant 'SQL文を入れる変数 str = makeSQL() 'SQL生成 execSQL (str) '実行 'ApplicamakeSQLtion.ScreenUpdating = True '画面描画の停止解除 End Sub Sub execSQL(str As Variant) '＝＝＝＝＝＝＝＝＝＝＝＝＝＝DB接続 Dim i As Integer Dim openFl As Boolean openFl = False 'オープンフラグ Dim db As ADODB.connection 'アクセス用のオブジェクト宣言 'エラー処理の宣言 On Error GoTo ErrorHandler If db Is Nothing Then 'インスタンスが存在しない場合 Set db = New ADODB.connection 'インスタンス生成 openFl = True 'オープンフラグをTrue Else 'オブジェクトが存在する場合 If db.State = adStateClosed Then 'コネクション状態がクローズの場合

VBA_lib

2022-11-15T15:09:31+09:00

https://gomyownway.hatenablog.com/entry/2012/06/23/152950 　Sheets("Sheet2").Select ---- 　Sub runover() 　' 　' 読み飛ばし　'A列の1行目から開始し、空白になるまで読み飛ばす　 Dim i As Integer 　 i = 1 　 While Cells(i, 1).Value <> "" 　 i = i + 1 　 Wend 　 Cells(i, 1).Value = "hogehoge" 　　End Sub

VBA_SQL-select

2022-11-14T21:47:13+09:00

https://www.excellovers.com/archive/category/VBA Option Explicit Sub slect() 'SQLアクセスのFunction化 'ワークシート処理をsub化 Application.ScreenUpdating = False '画面描画の停止 Call clearSheet 'シートのクリア Call writeVal(accSQL(1, 1000)) 'accSQLで検索した結果をwriteValでシートに転記 Application.ScreenUpdating = True '画面描画の停止解除 End Sub ---- Function accSQL(ByVal startCD As Long, ByVal endCD As Long) As Variant ' 生徒コードの開始、終了の値を受けてSQLから生徒データをダウンロードする。 '＝＝＝＝＝＝＝＝＝＝＝＝＝＝DB接続 Dim db As ADODB.connection 'アクセス用のオブジェクト宣言 Dim openFl As Boolean openFl = False 'オープンフラグ 'エラー処理の宣言 On Error GoTo ErrorHandler If db Is Nothing Then 'インスタンスが存在しない場合 Set db = New ADODB.connection 'インスタンス生成 openFl = True 'オープンフラグをTrue Else 'オブジェクトが存在する場合 If db

SQL-2

2022-11-04T13:28:08+09:00

--１－１ --VM_生徒基本情報を全列名検索してください。 select * from dbo.VM_生徒基本情報; --１－２ --VM_生徒塾種情報を全列名検索してください。 select * from dbo.VM_生徒塾種情報; --１－３ --VM_生徒受講情報を全列名検索してください。 select * from dbo.VM_生徒受講情報; --１－４ --VM_組織マスタを全列名検索してください。 select * from dbo.VM_組織マスタ; --１－５ --VM_クラスマスタを全列名検索してください。 select * from dbo.VM_クラスマスタ; --１－６ --VM_生徒基本情報から、生徒コード「301～320」の --生徒を、全列名を検索してください。 select * from dbo.VM_生徒基本情報 where 生徒コード between 301 and 320; --１－７ --VM_生徒塾種情報から、退塾の生徒を全列名検索してください。 --＊状態区分は 1　:　塾生（塾に入塾した生徒） -- 2　:　塾外生（入塾していない生徒　※テストのみを受ける見込み客等） -- 3　:　プール生（次年度入塾予定の生徒） -- 4　:　退塾（入塾後、塾を辞めた生徒） -- 5　:　休塾（入塾後、様々な事情で一定期間塾をお休みする生徒） -- 6　:　既卒（入塾し、卒塾(浜学園は小1～小6まで）した生徒) --　　　です。 select * from dbo.VM_生徒塾種情報 where 状態区分 = 4; --８ --M_生徒受講情報から、受講年度が　　 2014年　かつ、 --講座コードが　 5100　かつ、 --教室コードが　　 201　かつ --現在受講中の生徒を全列名検索してください。 --「現在受講中」とは、開始日列がNULL以外、終了日列がNULLの状態を指します。 select * from dbo.VM_生徒受講情報 where 受講年度 = 2014 and 講座コード = 5100 and 教室コード = 201 and

SQL-

2022-11-04T13:27:43+09:00

---１－１ ---VM_生徒基本情報の全ての列を取得して下さい。 select * from dbo.VM_生徒基本情報; ---１－２ ---VM_生徒塾種情報の全ての列を取得して下さい。 select * from dbo.VM_生徒塾種情報; ---１－３ ---VM_生徒受講情報の全ての列を取得して下さい。 select * from dbo.VM_生徒受講情報; ---１－４ ---VM_組織マスタの全ての列を取得してください。 select * from dbo.VM_組織マスタ; ---１－５ ---VM_クラスマスタの全ての列を取得してください。 select * from dbo.VM_クラスマスタ; ---１－６ ---生徒コード列が「301～320」の条件を満たす、 ---VM_生徒基本情報の全ての列を取得して下さい。 select * from dbo.VM_生徒基本情報 where 生徒コード between 301 and 320; ---１－７ ---退塾の生徒（状態区分列が3）の条件を満たす、 ---VM_生徒塾種情報の全ての列を取得して下さい。 select * from dbo.VM_生徒塾種情報 where 状態区分 = 3; ---１－８ ---受講年度列が2011かつ、 ---講座コード列が5100かつ、 ---教室コード列が201の条件を満たす、 ---VM_生徒受講情報の全ての列を取得して下さい。 select * from dbo.VM_生徒受講情報 where 受講年度= 2011 and 講座コード = 5100 and 教室コード = 201 ; ---１－９ ---現在受講中である条件を満たす、 ---VM_生徒受講情報の全ての列を取得して下さい。 ---「現在受講中」とは、開始日列がNULL以外、終了日列がNULLの状態を指します。 select * from dbo.VM_生徒受講情報 where 開始日 is not NULL and 終了日 is NULL; ---１－１０ ---塾種区分列が1かつ、組織タイプ列が3かつ、 ---組織KEY列が「850」「

SQL_training

2022-10-31T22:01:11+09:00

-複数テーブルの結合と絞りこみ select Hell.id, Hell.name, Element.name as element, Grade.name as grade from Hell join Element on Hell.element_id = Element.id join Grade on Hell.grade_id = Grade.id where Element.name ="Air" and Grade.name ="Boss" -副問合せと複数joinの組み合わせ -- Hellテーブルから、モンスターの「Graffiacane」(Hellテーブルのnameが「 Graffiacane 」のレコード) -- の弱点となる属性名を持ち、階級が「Boss」であるレコードをすべて出力してください。 -- 弱点はElementCompatibilityテーブルに格納されており、 -- 弱点に対応する属性名はelement_id、weakness_element_idを外部キーとしてElementテーブルを -- 外部参照することで取得できます。 select H.id , H.name, E.name as element, G.name as grade from Hell as H join Element as E　 on H.element_id = E.id join Grade as G　 on H.grade_id = G.id join ElementCompatibility as EC on E.id = EC.weakness_element_id where G.name = "Boss" and H.element_id = ( select EC.weakness_element_id from Hell as H join Element as E on E.id = H.element_id join ElementCompatibility as EC on E.id = EC.element_id where H.name ="Graffiacane" ) -SCOTT と同じdeptno

temp

2022-09-30T13:50:37+09:00

# coding: utf-8 # 自分の得意な言語で # Let's チャレンジ！！ d,n,bar = map(int,input().split()) cn = 0 #current number m = 0 #移動量 offset = d//2 # print(l[d//2]) for i in range(n): tn = int(input()) if cn == 0: if tn < offset: m += tn-cn else: m+= offset - tn elif cn == offset: if tn > offset: m+= tn -offset else: m+= offset - tn elif cn < offset: if tn > cn+offset and tn > cn: m += tn -cn else: if tn > offset: tn -= d m+= tn+*cn elif cn > offset: if tn > cn+offset and tn > cn: m += tn -cn else: if tn > offset: tn -= d m+= tn+*cn if m > bar: print("No") else: print("Yes")

アプリケーション企画実習

2022-09-21T14:02:40+09:00

**2022/9/20 -何をするか --クラス決め --何をするか・チーム名・担当決め **2022/9/21 -要件定義 -基本設計 --画面 --フロー --DB -詳細設計

ソフトウエア開発

2022-09-06T16:40:26+09:00

***2022/09/06 尾崎先生 -開発手法 --各ステップで文書化を行うので時間がかかる。 --ウォーターフォールの問題 ---要件を網羅できるか ---ユーザーの記憶があいまい（季節によって異なるような条件を忘れてしまっているケースなど） --アジャイル ---最低限の機能だけを持ったプロトタイプを短期間で作ってアップデートを繰り返す。 ---完成までの期間や費用を見積もるのが難しい。 ---予算化が難しいので日本ではなじみにくい。 -STEP1　営業 --解決策の仮説を提示 --困っている人を助ける -Step2 ヒアリング（１と同時もある） --最重要！ --後の手直しに影響する -STEP3 企画・提案 --システムの予算とはほぼ人件費（人：単価ｘ期間） --この金額をかけてユーザーがどれくらい得するかを提示できるかどうか --STEP2と同時に行う事もある。 --ユーザーとのすり合わせが重要。お互いの認識にずれが無いようにすること。 -STEP4　契約・受注 --見積書＞注文書・契約書 --開発の計画に入る -STEP5 要件定義 --ユーザーとの認識にずれがないようにする。最重要 --要件にはYes/noで答えられる文章を使う -STEP6　基本設計 --基本設計書と要件定義書はユーザーと共有 --テスト環境の確認　例：10 or 11 10ならビルドまで --フレームワーク： ---フレームワークのバージョンアップが終わったらそれに乗ったシステムも終わる -STEP7 詳細設計　：ユーザーには提示しない --プログラム --テスト --保守 --セキュリティ対策　https://owasp.org/Top10/ja/ -STEP8 開発 --プログラムを書くフェーズ --設計書の内容に沿ったプログラムを書く -STEP9　単体テスト --単体テスト仕様書にチェックを入れる --プログラムを書いたのとは別の人がやるべき --テスターは詳細設計書の内容を理解してテスト仕様書を作る -STEP9 結合テスト --基本設計書の内容をテストする -STEP10 システムテスト --システム側での最終テスト --要件定義書をテストする -STEP11 受け入れ