こんにちは。
流浪のSE・PGをやってますと、運用フェーズの案件に携わる機会がたまにあります。
データメンテナンスなんかをやっていて、エクセルでDistinctしたいなーという事が
よくあるので、選択範囲の重複を省き、クリップボードに貼り付けるエクセルのマクロをメモっておきます。
流浪のSE・PGをやってますと、運用フェーズの案件に携わる機会がたまにあります。
データメンテナンスなんかをやっていて、エクセルでDistinctしたいなーという事が
よくあるので、選択範囲の重複を省き、クリップボードに貼り付けるエクセルのマクロをメモっておきます。
'＜機能＞
' 選択範囲の重複を省いた値をクリップボードに出力します。
'＜戻り値＞
' なし
'＜説明＞
' クリップボードへの貼り付けはsetClipBoadのコメントを参照
'@:kevinjohnsonjp
'URL:http://kevinjohnson2.blog69.fc2.com/
Sub selectedDistinctToClipBoad()
Dim map As Object
Dim key As String
Dim value As String
'Map生成
Set map = CreateObject("Scripting.Dictionary")
For Each c In Selection
If c.Text <> "" And Not (map.Exists(c.Text)) Then
'マップに値を登録
Call map.Add(c.Text, c.Address)
'
value = value + c.Text + vbCrLf
End If
Next c
'クリップボードに設定します
setClipBoad (value)
End Sub
'＜機能＞
' 文字列をクリップボードに貼り付けます
'＜戻り値＞
' なし
'＜説明＞
' ［ツール］→［参照設定］で「Microsoft Forms 2.0 Object Library」に
' チェックして使用する。
'［参照可能なライブラリ］のリストにない場合は［参照設定］
'ダイアログボックスで［参照］ボタンをクリックして
'「C:\Windows\system32\FM20.DLL」を選択する
'
'@:kevinjohnsonjp
'URL:http://kevinjohnson2.blog69.fc2.com/
Function setClipBoad(strValue As String)
Dim CB As New DataObject
If strValue = "" Then
Exit Function
Else
With CB
.SetText strValue
.PutInClipboard
End With
End If
End Function
むぅー、かなり期間があきましたね（汗
札幌でSEをやってるつもりですが、最近はほぼPGの仕事ばかり。
設計はしますが、顧客との要件定義などは、ほとんどやってないですね。。。。
下流工程ばかりです。まあ、それはそれで楽なんですが＾＾；
実は、マックのair book を年末に買いました。
fets光にはいると、安く買えるってキャンペーンをヨドバシでやってたので、
5万円で買ってしまいました。
私は殆ど使ってなく、ヨメのwebサーフィン用となっていますが、嫁がよろこんでいるのでとりあえずはOKです＾＾；
さて、今日は酔っ払っているので、私の好きな曲を貼付けてみたいと思います。
QUEENの名曲だと思うんですけど、あんまりメジャーじゃないですよね。。。
札幌でSEをやってるつもりですが、最近はほぼPGの仕事ばかり。
設計はしますが、顧客との要件定義などは、ほとんどやってないですね。。。。
下流工程ばかりです。まあ、それはそれで楽なんですが＾＾；
実は、マックのair book を年末に買いました。
fets光にはいると、安く買えるってキャンペーンをヨドバシでやってたので、
5万円で買ってしまいました。
私は殆ど使ってなく、ヨメのwebサーフィン用となっていますが、嫁がよろこんでいるのでとりあえずはOKです＾＾；
さて、今日は酔っ払っているので、私の好きな曲を貼付けてみたいと思います。
QUEENの名曲だと思うんですけど、あんまりメジャーじゃないですよね。。。
アップルの創始者。Steve Jobs氏が先日お亡くなりになりました。
アップル
私は、アップル信者ではありません。
Macintoshユーザでもないです。
でも、この気持はなんでしょ。。。すごく寂しいですね。
私のMacintoshとの出会いは、小学校5年生くらいでしょうか。
今から25年近く前になりますな。
その当時、日本のパソコンといえばFM-７とかPC-8801とかが主流でして、
CUIのOSが一般的でした。
そんな世代にMacintoshは、マウスでGUIによるインターフェースを備えていたと記憶しています。
もう、次元が違いすぎてパソコンという感じはなかったですね。。。（汗
金額も100万円に近いとかそんなことを聞いたきがします。
Macintosh
日本ではNECが市場を独占してまして、Macintoshはごく一部の金持ちやら、
デザイナーやさんやら、お医者さんのパソコンというイメージでした。
実際、小学生がお年玉を貯めて買える次元ではなかったので、私としては眼中になかったですね。
子供が買えるパソコンといえばMSX。親が理解があれば、FM-new7とかpc-8801mr2SRとか。
そんな時代からあるパソコンなんですよね。
Macintoshってのは。
孤高の存在であったMacintoshもiMacが出てからでしょうかね。
シェアが広がったのが。
デザインがすばらしかったですよね。
私は、卒業研究もMS-DOSパソコンで一太郎＋Lotus123という環境でした。
そんな生い立ちなので私はMACを1台も持ってません。
社会人になり、次のノートはMacでも買おうかなぁ〜と思ってた矢先の訃報でした。
だいぶ痩せてらっしゃいましたからね。
でも、アップルのHPの写真。いい顔してますね。引き込まれるな。
お悔やみ申し上げます。
そして、お小遣いに余裕ができたら、MacBook Air 買いますね。
MacBook Air
アップル
私は、アップル信者ではありません。
Macintoshユーザでもないです。
でも、この気持はなんでしょ。。。すごく寂しいですね。
私のMacintoshとの出会いは、小学校5年生くらいでしょうか。
今から25年近く前になりますな。
その当時、日本のパソコンといえばFM-７とかPC-8801とかが主流でして、
CUIのOSが一般的でした。
そんな世代にMacintoshは、マウスでGUIによるインターフェースを備えていたと記憶しています。
もう、次元が違いすぎてパソコンという感じはなかったですね。。。（汗
金額も100万円に近いとかそんなことを聞いたきがします。
Macintosh
日本ではNECが市場を独占してまして、Macintoshはごく一部の金持ちやら、
デザイナーやさんやら、お医者さんのパソコンというイメージでした。
実際、小学生がお年玉を貯めて買える次元ではなかったので、私としては眼中になかったですね。
子供が買えるパソコンといえばMSX。親が理解があれば、FM-new7とかpc-8801mr2SRとか。
そんな時代からあるパソコンなんですよね。
Macintoshってのは。
孤高の存在であったMacintoshもiMacが出てからでしょうかね。
シェアが広がったのが。
デザインがすばらしかったですよね。
私は、卒業研究もMS-DOSパソコンで一太郎＋Lotus123という環境でした。
そんな生い立ちなので私はMACを1台も持ってません。
社会人になり、次のノートはMacでも買おうかなぁ〜と思ってた矢先の訃報でした。
だいぶ痩せてらっしゃいましたからね。
でも、アップルのHPの写真。いい顔してますね。引き込まれるな。
お悔やみ申し上げます。
そして、お小遣いに余裕ができたら、MacBook Air 買いますね。
MacBook Air
最近、めっきりこのブログをサボってました。
仕事はそれほど忙しくないんですが、新しい趣味に半端無くはまってしまってまして。。。
そんな訳で、サンデープログラミングとかめっきり遠ざかってる昨今でございます。
そんなこんなではありますが、ネットワークスペシャリスト試験が目前に迫ってきてますね（汗
来年のデーターベーススペシャリスト試験に向けて、午前�気諒拔�だけは頑張らねばならないのですが、これも手付かずだたりして・・・（汗
そんな訳でとりあえず、近々のTODOだけまとめときますわ＞＜
・ネットワークスペシャリスト試験 過去問をとく。
・Excelの便利マクロが溜まってるので、ちょくちょく公開していく。
・言語はなんでもいいので暗号を解析しているふうな出力ができるプログラムを作成する。
・新しい趣味のブログを立ち上げる。
・Webサービスを使ったページをGAE/Jで作ってみる。
こんなとこですかね。なんか、リスト化したらちょっとヤル気が出てきたかも！！
まあ、今年中にはやれるかな（ぉぃ
仕事はそれほど忙しくないんですが、新しい趣味に半端無くはまってしまってまして。。。
そんな訳で、サンデープログラミングとかめっきり遠ざかってる昨今でございます。
そんなこんなではありますが、ネットワークスペシャリスト試験が目前に迫ってきてますね（汗
来年のデーターベーススペシャリスト試験に向けて、午前�気諒拔�だけは頑張らねばならないのですが、これも手付かずだたりして・・・（汗
そんな訳でとりあえず、近々のTODOだけまとめときますわ＞＜
・ネットワークスペシャリスト試験 過去問をとく。
・Excelの便利マクロが溜まってるので、ちょくちょく公開していく。
・言語はなんでもいいので暗号を解析しているふうな出力ができるプログラムを作成する。
・新しい趣味のブログを立ち上げる。
・Webサービスを使ったページをGAE/Jで作ってみる。
こんなとこですかね。なんか、リスト化したらちょっとヤル気が出てきたかも！！
まあ、今年中にはやれるかな（ぉぃ
8月15日。データベーススペシャリスト試験の結果発表でございます。
情報処理推進機構：情報処理技術者試験：合格者受験番号一覧
さてさて。。。結果は。。。。
ぐへっ＞＜
また、午後�気�３点足りてない（つ＿・。）
なんか、デジャブってますね・・・（汗
ＫＪの業務日誌 平成22年 データスペシャリスト試験合格発表！！
去年とまったく同じ５７点とは。。。
勉強してなかったことを考えたら、まあこんなもんかなぁ？
午後�気量筍欧離妊轡献腑鵐董璽屮襪�完璧だったらなぁとか色々考えさせられる結果ですね。
まあ、手応えとして「微妙だな・・・」って時はだいたい不合格なんだよね。
来年に向けてコツコツと頑張るしかないですね。
大切なのは諦めないことですな。
と自分に言い聞かせる＾＾；
さしあたり、秋にネットワークスペシャリストを午前�橘判�ナシで受けて、来年のデータベーススペシャリスト試験に備えることにします！！
>>次のページ
情報処理推進機構：情報処理技術者試験：合格者受験番号一覧
さてさて。。。結果は。。。。
ぐへっ＞＜
また、午後�気�３点足りてない（つ＿・。）
なんか、デジャブってますね・・・（汗
ＫＪの業務日誌 平成22年 データスペシャリスト試験合格発表！！
去年とまったく同じ５７点とは。。。
勉強してなかったことを考えたら、まあこんなもんかなぁ？
午後�気量筍欧離妊轡献腑鵐董璽屮襪�完璧だったらなぁとか色々考えさせられる結果ですね。
まあ、手応えとして「微妙だな・・・」って時はだいたい不合格なんだよね。
来年に向けてコツコツと頑張るしかないですね。
大切なのは諦めないことですな。
と自分に言い聞かせる＾＾；
さしあたり、秋にネットワークスペシャリストを午前�橘判�ナシで受けて、来年のデータベーススペシャリスト試験に備えることにします！！
