「プログラミング」カテゴリーアーカイブ

列ごとに複数列追加するマクロ

何度か使いそうな用件があったので、作ってみた。

選択した列範囲に指定した行数追加していくexcel用vbaマクロ

Sub 列を追加する()
'選択列の後ろに指定数挿入

Dim N As Integer
Dim startC, endC, currentC As Long
Dim LoopCount As Long
Dim i As Long
Dim LoopArea As Range
Dim SelectArea As String

SelectArea = Selection.Address
Set LoopArea = Selection

'挿入したい列数を
N = 3

'状況取得
startC = LoopArea.Cells(1).Column
endC = LoopArea.Cells(LoopArea.Count).Column

'挿入処理
LoopCount = endC - startC + 1
currentC = startC

'画面描画抑止
Application.ScreenUpdating = False

For i = 0 To (LoopCount - 1)
    With ActiveSheet
        .Range(.Columns(currentC + 1), .Columns(currentC + N)).Insert
    End With
    currentC = currentC + N + 1
Next

'画面描画の再開
Application.ScreenUpdating = True

End Sub

ツイッターとかFacebookとかのボタンを付ける

付けてみました。

たまにはマークしていただけるようなことも書くだろうという期待を込めて。
以下はメモ。

WordPressには便利なプラグインもたくさんあるけど、テーマのファイルに追記して表示させる方法です。

編集すべきテンプレートはindex, page, とsingleでしょう。たぶん

<div class="socialbar"><!– socialbar –>
  <div class="tweet">
    <a href="http://twitter.com/share"
      class="twitter-share-button"
      data-url="<?php the_permalink(); ?>"
      data-text="<?php the_title(); ?>"
      data-count="horizontal"
      data-via="nisefuruta"
      data-lang="ja">
        Tweet
    </a>
    <script type="text/javascript" src="http://platform.twitter.com/widgets.js"></script>
  </div>
  <div class="facebook">
    <iframe src="http://www.facebook.com/plugins/like.php?href=<?php echo urlencode(get_permalink($post->ID)); ?>&amp;layout=standard&amp;show-faces=true&amp;width=240&amp;action=like&amp;colorscheme=light" scrolling="no" frameborder="0" style="border:none; overflow:hidden; width:240px; height:25px" allowTransparency="true"></iframe>
  </div>
  <div class="hatebu">
    <a href="http://b.hatena.ne.jp/entry/<?php the_permalink();?>"
    class="hatena-bookmark-button"
    data-hatena-bookmark-layout="standard"
    title="<?php the_title();?>">
      <img src="http://b.st-hatena.com/images/entry-button/button-only.gif"
      alt="このエントリーをはてなブックマークに追加"
      width="20"
      height="25"
      style="border: none;" />
    </a>
    <script type="text/javascript" src="http://b.st-hatena.com/js/bookmark_button.js" charset="utf-8" async="async"></script>
  </div>
  <div class="evernote">
    <script type="text/javascript" src="http://static.evernote.com/noteit.js"></script>
      <a href="#"
      onclick="Evernote.doClip({contentId:'evernote',title:'<?php the_title(); ?>',url:'<?php the_permalink(); ?>',code:'content'}); return false;">
        <img src="http://static.evernote.com/article-clipper.png"
        alt="Clip to Evernote" />
      </a>
  </div>
</div><!– socialbar –>

もちろん自分のサイトに応じて編集のこと

これを1行で表示させるのにCSSも追加します。

div.socialbar {
  margin-top: 5px;
}

div.tweet {
  float: left;
  display: inline;
  width: 120px;
}

div.facebook {
  display: inline;
}

div.hatebu {
  display: inline;
}

div.evernote {
  display: inline;
}

div.postcontent {
  clear: both;
}

ツイッターとFacebookとevernoteの必要な情報は
Twitter / ツイートボタン http://twitter.com/goodies/tweetbuttonLike Button – Facebook開発者 http://developers.facebook.com/docs/reference/plugins/like
Evernote http://www.evernote.com/about/developer/sitememory/#a_builder
などで作成のこと

twitterボタン、はてブ、facebookの「いいね!」などをWordpressに1列で表示 | ハイファイブ ウェブ雑記 http://highfivecreate.com/twitterbutton-hatebu-facebooklike-for-wordpress/
ヒントにさせていただきました。
有り難うございます。

初めのうちは親切に

Google アンドロイド
Android
プログラミング入門

という書籍で、Android向けのプログラミングを学ぼうと言うときにコツコツやるのですが、初っぱながあまり親切でない。

まぁ、この手の書籍を読む人なら調べて解決するよねというスタンスかもしれないけど、初めのうちはもう少しヒント的な一行を入れておくとか言うことがあっても良いのかなと思った。

Google Androidプログラミング入門Google Androidプログラミング入門

というのは、BMICalculatorActivity.javaのsource説明にインポートは言わずもがなだ。という雰囲気があったから。

import android.app.Activity;
import android.app.AlertDialog;
import android.content.DialogInterface;
import android.os.Bundle;
import android.view.View;
import android.widget.Button;
import android.widget.EditText;

最低限これだけ書かないと実行させてもらえません。

AutoCAD2010でコピーされる型

AutoCADでオブジェクトを選択してコピーすると、クリップボードに保持されるデータ型はエハンスドメタファイル(System.Windows.Forms.DataFormats.EnhancedMetafile)じゃなくて、メタファイル(System.Windows.Forms.DataFormats.MetafilePict)だった。
MetaFilePictであって、EnhancedMetafileが入ってはいない。
メモ。
それなのにOffice系ソフトで形式を選択して…をすると図(拡張メタファイル)と出るのは、
変換して貼ってくれると言うことなのだろうか。
少なくともコピーしたAutoCAD.r18(?)とAutoCAD-LT18型はMetaFilePictとなっている。