hide_kichiの情報

気になる情報を適当にアップしていきます

【VBA】ボタンの文字を変更する

f:id:hide_kichi:20180321132700p:plain

ボタンの文字を変更する場合。

ソースは以下です。

------------------------------------------------------------------------------ ActiveSheet.CMD1.Caption = "A1"    ActiveSheet.cmd2.Caption = "B1" ------------------------------------------------------------------------------

わかってしまえばなんてことないのですが、少し悩みました。ので記録しておきます。

 

 

 

 

 

 

 

 

いいもの見つけた!【USENのバラード】

会社帰り駅ビルで流れている有線のバラード

毎日3曲聞いて帰ってるのですが曲名がわからないので少し残念に思っていました。

 

でも、USENのホームページを見ると曲名がリアルタイムにわかるようになっていました。

music.usen.com

最高です!!

良かった!!

Cの11チャンネル

なかなかGOODです。

 

 

 

 

 

子供のプレゼントに Micro:bit

画像検索結果

Micro:bitに興味があります。

イギリスBBCが主体となって教育用に作られたマイコンボードで、イギリスでは11歳〜12歳の100万人の生徒に無償で配布されているものです

プログラムの勉強に手軽でシンプルでかつ未来を創造できます。

価格も2000円程度で安く購入できます。

ブロックの組み合わせでプログラムが作成でき、これからのプログラムを体験できます。また通常のJavaScript(ジャバスクリプト) 、Python(パイソン)のプログラムも勉強できます。

光、温度、加速度センサーとコンパス、Bluetooth機能を搭載し、25個のLEDと2個のボタンがありプログラムの出力をLEDに表示するこが簡単にできます。

拡張性も十分あり、ロボットと接続、スマホと無線で接続などができロボットプログラミングも体験できます。

なかなか面白い基盤です。

是非、プレゼントに!!

 

 

 

ADDRESS V100 のセルモータ10年ぶりに復活

アドレスV100のセルモーターが10年ぶりに復活しました。

(※YOUTUBE ADRESSがADDRESSの間違いです)

最高にうれしい!!

今冬眠中のアドレス、昨年の年末からセルモーター取り外し作業にかかりました。

合間にネットでセルモーターの中古を探していると1000円のセルモーターが見つかり、それを入手することに成功。

正常な動きは期待してなかったのですが、問題なく稼働しちゃいました。

譲ってくださった方に感謝感激です。

 

ただ、ここまで来るにはいろいろありました。

マフラーをなかなか外せませんでした。

工具がなく、新たに小さめのラチェットと長めの六角レンチを購入しないと外すことができませんでした。

また、セルモーターに直接関係ないですが、キャブレターを掃除しようとエアフィルターを外すときゴムを破損させ、新たにパワーフィルターに変更しました。

 

しかし、何事も経験です。1度分解すると組み立てるのは1時間くらいで組み立てることができました。分解は恐る恐るするので何日もかかっちゃいました。

 

暖かくなって乗ろうと思ってます。 いまは冬眠中、エンジンをかけるのに随分役にたってます。

 

 

 

 

 

 

 

簡単なTABLEのカウント(重複データを除いた)

VBAのTABLE内、重複データを除いた件数を計算します。

ソースは以下です。
menber2()テーブル内に重複したデータが存在したら””(ブランク)にします。
------------------------------------------------------------------------------ work_i = mem_cnt2 For i = 1 To mem_cnt2 For j = 1 To mem_cnt2 If i = j Then Else If member2(i) = member2(j) Then If member2(i) = "" And member2(j) = "" Then Else work_i = work_i - 1 member2(j) = "" End If End If End If Next j Next i mem_cnt2 = work_i Cells(30, 1) = mem_cnt2

簡単なVBAだけど重宝してます。

シートを削除して名前変更する作業だけど、プログラム作ったら随分楽になった。

 

Public Sub シート削除リネーム()

Dim sss
Dim shtname1
Dim shtname2

sss = Range("A1")
shtname1 = sss & "注文データ"
shtname2 = sss & "注文データ (2)"
Worksheets(shtname1).Delete
Worksheets(shtname2).Name = shtname1

End Sub

WORDPRESS TABLEPRESSの見出し文字の大きさ調整

WORDPRESS TABLEPRESSの見出し文字の大きさ調整】

1.TABLEPRESS プラグインのオプションに以下を追加

#tablepress-4 th

 {

    font-size: 18px;

}

#tablepress-6 th

 {

    font-size: 18px;

}

固定ページで文字サイズがなかなか反映されませんでしたが

私の場合、スペースが全角でした。半角に変更したらうまく表示できました。

 

f:id:hide_kichi:20180125155448p:plain