HOME   »  2018年04月
RSSフィード

2018年4月
地区卓球強化大会
中体連春季市大会


20180429_地区卓球強化大会01

2018年4月。

3年生にとっては、最後に向けてラストスパートの大会です。
(毎年の事ですが・・・。)

今まで培ってきた努力を大会で発揮できるか?!

低学年の部から全学年の部となれば、一気にレベルが上がり、激しい戦いが繰り広げられました。
やはり、スーパー1・2年生の登場は大きいです。

今まで上がれていた子達も敗北と言う結果に・・・。
低学年の部で表彰台の常連だった子達も県大会出場の権利がもらえず敗退。

地区によってはレベルが違いすぎて、大きい市内地区だとベスト16人県大会出場できるところが、我が地区は8人です。

おそらく我が地区のベスト16はよそへ行ったら上位と言う子達ばかりです。

そして、なぜか我が子は毎回県大会出場権をかけた大勝負の時に同じ子に当たります。
スーパー1年生を倒して上がってきた子だけに五分五分の戦いが繰り広げられました。
そして、いつもごめんなさい・・・。と言う気持ちになります。
よその島から一緒に出たい仲間だけに、内心辛いです。
でも、試合終わってすぐ仲良し!(^^)!
毎日一緒に練習しているだけあって、良い後輩です。

ベスト16からはコールがノンストップです。
ベスト8が決まったらランキング戦。

みんな、団体戦からノンストップ出場なので、時間が押しているとは言え、足がフラフラな子供達。

2校、4人vs4人なだけに、注目でした。

県大会は5/12(土)に越前市体育館で開催されます。

全地区スーパー1・2年生出場と言う前代未聞の全学年の部。

1・2年生が県大会へ出場してきます。
さてはて、どうなる事やら(--:)

20180429_地区卓球強化大会02

20180429_地区卓球強化大会03

20180429_地区卓球強化大会_全学年シングルス_トーナメント表




スポンサー広告





SQLServerでSQLデータの
存在有無を確認する方法



Dim ds As DataSetします。

変数dsにGetDataで変数dsに代入します。



CASE WHEN COUNT

Select文に「CASE WHEN COUNT」

という関数を使用して、

発注NOに値がない場合「存在しない」

値がある場合「存在する」

という仮テーブルを作る事で

判断する方法があります。

面白いやり方です。





SQL有無確認

Rows.Count

そうでなくても、Select文でテーブルの

数が0件だったら処理する。

と言うシンプルな方法もあります。

こちらの方が、見やすいです。




このSQL件数検索は、使用頻度が高いです




スポンサー広告


facebook恋活・婚活サービス【Matchbook】 株式会社リクルートホールディングスfacebook恋活・婚活サービス【Matchbook】 株式会社リクルートホールディングスfacebook恋活・婚活サービス【Matchbook】 株式会社リクルートホールディングスfacebook恋活・婚活サービス【Matchbook】 株式会社リクルートホールディングス






コンボボックス(combobox)を
ドロップダウンリストにした際
背景色を白にする方法



コンボボックスをドロップダウン(DropDown)にしておけば、背景色(FlatStyle)のデフォルトでスタンダード(standard)ですが、書込みが出来てしまうコンボボックス(combobox)となってしまいます。

そこで、プロパティの設定で、DropDownStyle = ドロップダウンリスト(DropDownList)に設定すると、書込みは出来なくなるリストになりますが、背景色がグレーで、白にはなってくれません。

ここで、FlatStyle = Popupにすると、背景色が白になり、変更不可のドロップダウンリスト(DropDownList)が出来ます。
しかし、カーソルを当てないと枠線が出ない感覚が微妙です。

背景色がグレーよりかはマシで、ドロップダウンリストにしても、普通のドロップボックスに近づけた形にはなったかと思います。


コンボボックス(combobox)ドロップダウンリスト 背景色変更技

combobox1 = 通常の設定

combobox2 =
DropDownStyle →
ドロップダウンリスト(DropDownList)

combobox3 =
DropDownStyle →
ドロップダウンリスト(DropDownList) +
FlatStyle → Popup

コンボボックス(combobox)ドロップダウンリスト 背景色変更技_プロパティ1

combobox1 = 通常の設定

コンボボックス(combobox)ドロップダウンリスト 背景色変更技_プロパティ2

combobox2 = DropDownStyle =
ドロップダウンリスト(DropDownList)

コンボボックス(combobox)ドロップダウンリスト 背景色変更技_プロパティ3

combobox3 = DropDownStyle =
ドロップダウンリスト(DropDownList) +
FlatStyle = Popup



スポンサー広告




少年野球の会長杯が開催


我が地区の少年野球は、野球人口がいないので、2年間程試合に出れませんでした。
やっと出れた初試合。
結果、ぼろ負けとなってしまいましたが、結果よりも、試合に出れた事に大いに嬉しさを感じました。
5・6年生のチーム相手に3・4年生は精いっぱい頑張りました。
小さい体でピッチャー・キャッチャーをし、バッティングでは、剛速球の中、全員がファールでしたが、打つ気満々で当てた事がすごいと感じました。
3年生の一番小さい子は、剛速球の中、ヒット!
今後、期待できるチームです。
頑張れ野球少年。


20180417_少年野球_会長杯

20180417_少年野球_会長杯_ピッチャー120180417_少年野球_会長杯_ピッチャー2

20180417_少年野球_会長杯_ピッチャー320180417_少年野球_会長杯_リード

20180417_少年野球_会長杯_バッター220180417_少年野球_会長杯_バッター1


スポンサー広告

Ponta最強クラス!ポイントがポンポンたまる【シェルPontaクレジットカード】(Ponta最強クラス!ポイントがポンポンたまる【シェルPontaクレジットカード】三井住友カード株式会社  ホテル予約最大16%割引!【Booking.comカード】三井住友カード株式会社  ホテル予約最大16%割引!【Booking.comカード】





中学3年生・ラストスパート
高校の練習試合に参加


中学校の部活は本当にあっという間です。

スタートが一緒な子達もいれば、小学生からしている子達もいますが、圧倒的に中学生から始める子達がほとんどです。

ラケットを降ろすまでの短期間にも新一年生やレベルを上げてきた二年生の突き上げで、団体戦のレギュラー争いも、し烈な戦いです。

でも、中学三年ともなると受験と言うこともあり、一気に宿題の量が増えます。

平日の夜は練習を控えて、部活が半日の時は高校に行き、練習をしたりしています。

高校生は体格もよく、ちびっ子の中学生は、フラフラです"(-""-)"


20180414_高校の練習試合に参加01

20180414_高校の練習試合に参加03

20180414_高校の練習試合に参加02




スポンサー広告

ベクターPCショップ 「プロレジ」パソコンソフトダウンロード販売ベクターPCショップ 「プロレジ」パソコンソフトダウンロード販売ベクターPCショップ 「プロレジ」パソコンソフトダウンロード販売ベクターPCショップ 「プロレジ」パソコンソフトダウンロード販売




VB6のフォームとVB.NETのフォーム
サイズ変換計算表


下記の計算表にVB6の幅(width)・
高さ(Height)の数字を入力し
[計算実行]ボタンを押下すると、ある程度の
VB.NETのサイズが変換され表示されます。


最近では、仕様変更・追加により、
VB6からVB.NETへの
焼き直しが多くなっております。

古くなったシステムから新しいシステムに
するためには、プログラマーも日々
新開発ツールを用いて製作しています

何年・何十年に一度のプログラム開発とは言え、
お客様には、今まで通りの環境に近い形で
提供しなけばならないものです。

今までは、なんとなく見て大きさの確認を
していましたが、ルーチンワークに
なってしまうと変えるサイズを間違えたりも
するので、正しい数値に近い形の変換表を
作成しました。

是非、VB6からVB.NETへ移管する方はご使用下さい。

【VB6からVB.NETへのサイズ変換表】



VB6の幅
(width)入力
VBb6の高さ
(Height)入力
VB.NETの幅
VB.NETの高さ




スポンサー広告

自宅で学べるオンラインのプログラミングスクール【TechAcademy】自宅で学べるオンラインのプログラミングスクール【TechAcademy】自宅で学べるオンラインのプログラミングスクール【TechAcademy】自宅で学べるオンラインのプログラミングスクール【TechAcademy】


スマートフォン・タブレット用ケーブル



Excel(エクセル)VBA
ブック・ファイルのパス(アドレス)取得



Excel(エクセル)を開く際は「Workbook_Open()」を使用します。
その時、ブック(ファイル)のパス(アドレス)を取得して、セルに書込むと、わざわざ作業者に書いてもらう必要がなくなります。
いろいろな場面でブック(ファイル)のパス(アドレス)を取得する事が多いので、便利です。





スポンサー広告


インターネット自宅学習システム【e点ネット塾】インターネット自宅学習システム【e点ネット塾】インターネット自宅学習システム【e点ネット塾】インターネット自宅学習システム【e点ネット塾】


学習教材・英語




ちょっと便利なExcel(エクセル)VBA



● 行の削除(Delete文)


選択している行(Rows)を上方向(Shift:=xlUp)に削除(Delete)します。




● 行の表示・非表示(Hidden文)


7行目が非表示なので、6~8行目(Rows("6:8"))を表示EntireRow.Hidden = Falseします。
7行目を非表示にしたいので、7行目(Rows("7:7"))を非表示(EntireRow.Hidden = True)にします。




● 行のコピー(Copy文)


7行目(Rows("7:7"))をコピー(Copy)します。




● 行の貼り付け(Paste文)


8~100行目(Rows("8:100"))まで貼り付けたいので選択(Select)します。
選択した行に貼り付けします。(ActiveSheet.Paste)
※ 貼り付けに関しては、[Rows("8:100").Paste]は出来ません。
セルを選択してから貼り付け文と2行必要です。




● コピーモード解除(CutCopyMode)


コピーした後、コピーしたままの状態でコピー元のセルが点線状態になっています。
[ESC]キーでコピーモード解除できますが、親切にコピーモード解除しておいてあげましょう。
Application.CutCopyMode = False




● セルの選択Select


セル[C8](Range("C8"))選択(Select)
セル[C8]の場合、[Range]でもOKですが、以下も同じです。
Cells(8,"C").Slect
Cells(8,3).Select






スポンサー広告

【限定販売】ドラマ・映画・アニメとのコラボアクセサリー【限定販売】ドラマ・映画・アニメとのコラボアクセサリー【限定販売】ドラマ・映画・アニメとのコラボアクセサリー【限定販売】ドラマ・映画・アニメとのコラボアクセサリー


香水




Excel(エクセル)VBA
データを一括で転記する方法(配列)



Forを2回繰り返さなくても、変数に配列として、値を取得する方法です。
また、"&"で組み合わせる場合も、変数で行数を取得していれば、セルに合わせた形でFor文を構築できます。
なるべく構文は簡素化して、早い処理速度を実行する事が良いです。





スポンサー広告

facebook恋活・婚活サービス【Matchbook】facebook恋活・婚活サービス【Matchbook】facebook恋活・婚活サービス【Matchbook】facebook恋活・婚活サービス【Matchbook】

【 レディース財布 】



レディース財布

【 メンズ財布 】



メンズ財布


Excel(エクセル)VBA
印刷範囲の設定



ActiveSheet.PageSetup.PrintArea = "$A$1:$J$60"としたいのですが、

Range("B50000").End(xlUp).Rowにて、セルB50000から一番上の行番号を

取得した数字を"&"で指定しています。






スポンサー広告


【 海外行くなら!イモトのWiFi 】申込促進【 海外行くなら!イモトのWiFi 】申込促進【 海外行くなら!イモトのWiFi 】申込促進【 海外行くなら!イモトのWiFi 】申込促進


スポーツドリンク



訪問者数
野球用品通販サイト
BaseballPartsShop_logo野球部必見!【野球用品通販ご紹介サイト】少年野球球児を応援
マグボードハンドメイド工房
マグボードハンドメイド工房_ロゴ02-1 マグボードハンドメイド工房_ロゴ02-2 Yahoo!ショッピング「マグボードハンドメイド工房」設立2
プロフィール

yakyuu_main.jpg

Author:黒子
黒子ブログでは、日々の出来事や、様子など写真を交えて、子供達の成長を日々更新中です。

少年野球や卓球など、様々な事にトライしています。

パソコン関係のトラブル対応や、システム・プログラム備忘録も記載しています。

雑記として福井県をメインとしたグルメ情報も掲載中。

PR
年別アーカイブ一覧
ブロとも申請フォーム
カレンダー
<
>
- - - - - - 1
2 3 4 5 6 78
9 10 11 12 13 1415
16 17 18 19 20 2122
23 24 25 26 27 2829
30 - - - - - -


全記事

おススメ 商品






検索フォーム

PAGE TOP
yamaka00ランキング集計結果