CALENDAR
S M T W T F S
    123
45678910
11121314151617
18192021222324
25262728   
<< February 2007 >>
SPONSORED LINKS
ARCHIVES
CATEGORIES
RECOMMEND
ザッピング
ヤフーログール
あわせてよみたい
とらっくわーど
MOBILE
qrcode
スポンサーサイト

一定期間更新がないため広告を表示しています

| - | | - | - | pookmark |
医療Rの件数算出:区分に応じて計算式を変える
Sub 医療R件数()



Dim i As Long

Dim j As Long

Dim termno As Long

Dim medino As Long



i = 24

j = 24





Do While Cells(i, 1) <> ""



'自社サイトの医療R件数を求める

If Cells(i, 5) = "医療R" And Cells(i, 3) = "自社サイト" Then

j = 24

Do While Cells(j, 1) <> ""

If Cells(i, 4) = Cells(j, 4) And Cells(j, 5) = "定期" Then

termno = Cells(j, 11)

ElseIf Cells(i, 4) = Cells(j, 4) And Cells(j, 5) = "医療" Then

medino = Cells(j, 11)

End If

j = j + 1

Loop

Cells(i, 11) = (termno + medino) * 0.1



'リスティングのリファンド件数を求める

ElseIf Cells(i, 5) = "医療R" And Cells(i, 3) = "リスティング" Then

j = 24

Do While Cells(j, 1) <> ""

If Cells(i, 4) = Cells(j, 4) And Cells(j, 5) = "定期" Then

termno = Cells(j, 11)

ElseIf Cells(i, 4) = Cells(j, 4) And Cells(j, 5) = "医療" Then

medino = Cells(j, 11)

End If

j = j + 1

Loop

Cells(i, 11) = (termno + medino) * 0.1

End If

i = i + 1

Loop





End Sub
| VBA | 14:09 | comments(0) | trackbacks(0) | pookmark |
中国古典から学ぶ帝王学
■中国古典から頂いた言葉■

修己治人:己を修め人を治む

無欲速:速やかなるを欲するなかれ

無見小利:目先の利益に惑わされるなかれ



■公演内容■

経世済民(世を治め民を救う)→経済

経済の語源となった経世済民は政治のこと。

中国古典は「政治論」「人間関係論」「リーダー論」である。

中国古典を読むのであれば

・論語:リーダー論

・孫子:兵法

の2冊を併読。



リーダーたる者の素質とは、

【1】能力

・智:洞察力

・勇:決断力

【2】徳

・謙:腰が低いことであるが、毅然として謙虚であるべき。卑屈なのは最もいけない。

・寛:心が広いことであるが、厳しさも持つべき。叱れないのは最もいけない。

・仁:心のあたたかさ。

・信:嘘をつかないこと。

・勤:率先垂範。

・義:人として正しいこと。



ただし、すべてを兼ね備えたリーダーはいない。努力目標である。
| - | 22:07 | comments(0) | trackbacks(0) | pookmark |
ユーザーフォームを使った単価変更
鉛筆

---標準モジュール---

Sub ユーザーフォーム表示()

単価変更フォーム.Show

End Sub





---ユーザーフォーム---

Private Sub 終了ボタン_Click() '★よくできています。

End

End Sub



'イベントプロシージャとは、プログラム名称が「オブジェクト名_イベント名」になっているプログラムのこと。この場合、オブジェクト名=終了、イベント名=Click。





Private Sub 変更ボタン_Click()

Dim i As Integer

Dim cnt As Integer

'A エラーチェック

If IsNumeric(上昇率) = False Then

MsgBox ("数値を入力してください")

上昇率.SetFocus

Exit Sub

End If



'B ワークシート上の明細を更新

i = 3

cnt = 0



Do While Cells(i, 4) <> ""

If Cells(i, 4) = 区分番号.Text Then

Cells(i, 6) = Cells(i, 6) * (1 + 上昇率.Text / 100)

cnt = cnt + 1

End If

i = i + 1

Loop



'処理件数をmsgboxに表示



If cnt = 0 Then

MsgBox ("該当する商品区分はありませんでした")

区分番号.SetFocus

Else

MsgBox (cnt & "件の明細を変更しました")

End If



End Sub

'テキストボックスの値を参照するには、オブジェクト名.Text と記述する

'変数cntはカウンター

任意のテキストボックスにカーソルを移動するには、オブジェクト名.SetFocus
| VBA | 20:49 | comments(0) | trackbacks(0) | pookmark |
条件に合うデータを抽出
条件に合うデータだけを別シートに書き出す。



鉛筆

Option Explicit



Sub データ抽出()



Dim i As Integer

Dim j As Integer



Worksheets("商品一覧").Rows("2:2").Copy

Worksheets("発注対象商品").Rows("1:1").PasteSpecial Paste:=xlPasteValues



i = 3

Do While Cells(i, 1) <> ""

If Cells(i, 7) + Cells(i, 8) <= Cells(i, 9) Then

j = 2

Do While Worksheets("発注対象商品").Cells(j, 1) <> ""

j = j + 1

Loop

Worksheets("商品一覧").Rows(i).Copy

Worksheets("発注対象商品").Rows(j).PasteSpecial Paste:=xlPasteValues

End If

i = i + 1

Loop





Worksheets("商品一覧").Cells(1, 1).Select

Application.CutCopyMode = False





End Sub



鉛筆

Sub 発注対象商品抽出()



Dim i, j As Long



'まずはタイトル部分だけ固定で出力する。

With Sheets("発注対象商品")

.Cells.Clear

.Cells(1, 1) = "商品コード"

.Cells(1, 2) = "商品名"

.Cells(1, 3) = "在庫"

.Cells(1, 4) = "発注済"

.Cells(1, 5) = "発注点"

End With



'次に明細行を転記します。

i = 3

j = 2

Do While Cells(i, 1) <> ""

If Cells(i, 9) <> 0 And Cells(i, 7) + Cells(i, 8) <= Cells(i, 9) Then

With Sheets("発注対象商品")

.Cells(j, 1) = Cells(i, 1)

.Cells(j, 2) = Cells(i, 3)

.Cells(j, 3) = Cells(i, 7)

.Cells(j, 4) = Cells(i, 8)

.Cells(j, 5) = Cells(i, 9)

End With



j = j + 1

End If

i = i + 1

Loop



End Sub
| VBA | 20:43 | comments(0) | trackbacks(0) | pookmark |
区分に応じた単価変更
Sub 単価変更()

'商品区分が1ならば価格を10%値上げ

Dim i As Integer



i = 3

Do While Cells(i, 4) <> ""

If Cells(i, 4) = 1 Then

Cells(i, 6) = Cells(i, 6) * 1.1

End If

i = i + 1

Loop

End Sub



Sub 単価変更改造版()

'商品区分と値上げ率をインプットボックスで指定



Dim w商品区分 As Byte

Dim w単価上昇率 As Integer

Dim i As Integer



w商品区分 = InputBox("対象商品を入力してください", "単価の変更")

w単価上昇率 = InputBox("単価上昇率を入力してください", "単価の変更")



i = 3

Do While Cells(i, 4) <> ""

If Cells(i, 4) = w商品区分 Then

Cells(i, 6) = Cells(i, 6) * (w単価上昇率 + 100) / 100

End If

i = i + 1

Loop



End Sub
| VBA | 15:15 | comments(0) | trackbacks(0) | pookmark |
GT表とは
Grand Totalの略。
| マーケティング | 15:50 | comments(0) | trackbacks(0) | pookmark |
検索
検索コマンド

link:

対象 URL のリンク元を表示

例: link:http://www.google.co.jp/

PageRankによる足切りが在る。 現在 Google の場合 link: 検索は適当な物しか表示せずほとんど意味を成さない。

Yahoo! と MSN では linkdomain:google.co.jp 等のコマンドが使える。

linkdomain: は特定のドメインに対し貼られているリンクで認識している物はすべてを表示する。

詳細は バックリンク(被リンク)の確認方法 へ記載。

cache:

対象 URL のキャッシュを表示

例: cache:http://www.google.co.jp/

related:

対象 URL の関連ページを表示

例: related:http://www.google.co.jp/

info:

検索にURLを指定したのと同じ

例: info:www.yahoo.co.jp/

site:

対象ドメイン内の文字列を検索

複数語の指定可

例: site:yahoo.co.jp 花 栽培

例: site:yahoo.co.jp filetype:xml

allinurl:

URL に含まれる文字列のみ検索

複数語の指定可

例: allinurl:mp3

inurl:

URL 又はページ内に含まれる文字列を検索

複数語の指定可

例: inurl:music mp3

allintitle:

ページ タイトルに含まれる文字列のみ検索 ?

複数語の指定可

例: allintitle:素材 midi

intitle:

ページ タイトル又はテキストに含まれる文字列を検索

複数語の指定可

例: intitle:フリー 壁紙

filetype:

pdf、ps、doc、xls、ppt、rtf 等ファイルタイプを指定し文字列を検索

未公認では cgi、php、asp xml、shtml、mw等とLotusやMicrosoftの形式もある

html と htm も区別される

-filetype:pdf と入力すると pdf を含まない検索

複数語の指定可

例: filetype:pdf 規格

allintext:

間に含まれる文字列のみを検索対象にする

Google のキャッシュで「これらのキーワードは、このページにむけて張られているリンクに含まれています」 は検索結果から無くなる

複数語の指定可

例: allintext:exit

allinanchor:

ページへのリンク内に含まれる文字列のみを検索対象にする

例: allinanchor:google

inanchor:

使えるが意味不明

daterange:

日付の範囲(ユリウス日の整数部)の指定を1日単位で行う為のフィルタ

タイムゾーンやGoogleクロール時の影響もあり結構いいかげん

複数語の指定可 他の検索コマンドとも組み合わせ可

例: google daterange:2453002-2453012

movie:

映画に関する情報を表示する特殊機能で現在日本語は使えない

映画専用のデータベースを参照していると思われる。

例: movie: Tom Hanks Oscar



--------------------------------------------------------------------------------



Googleのブーリアン演算子もどき

全ての語を含む

語と語の間にスペースを挟んだ場合は常にすべての語を含む検索となる為 AND(半角大文字)は不要

スペースの場合と AND を挟んだ場合では微妙に検索数が異なる

例: コンピュータ AND デスクトップ

いずれかのキーワードを含む

複数キーワードの何れかを含む検索

語と語の間にスペースを挟み OR(半角大文字) 又は | を挿入

実際に検索してみれば判るが正しい OR 検索にはならない

例: パソコン OR コンピュータ

マイナス検索

検索結果から除きたいキーワードの指定

除きたい語の直前にマイナス記号 - を置く

ママイナス記号の前には空白が必要、ママイナス記号と除きたい語の間に空白は入れない

例: オリンピック -冬季

プラス検索(ストップ語の有効化)

自動的に検索から排除されるストップ語(com や by 等)を検索に含める

ストップ語の直前にプラス記号 + を置く

フレーズ検索でもストップ語を含める事が出来る

例: powered +by google

注:2005/05からストップ語は消滅した?

フレーズ検索

インデクサーで分解された複合語をフレーズとして認識させる

フレーズにしたい複合語の両端を引用符 "" で括る

例: "powered by google"

半角括弧 () による優先順位

電卓の場合は完璧。 一般の検索の場合大抵の場合うまく機能するが不自然と思われるような結果となる場合もある。



--------------------------------------------------------------------------------



Googleの特殊機能

天気予報 (Google英語ページのみ)

「weather 地域名」で地域別天気予報を表示する

米Google、天気予報検索を追加

関連語検索 (英語のみ)

キーワドに関連する類義語を検索に含める

キーワードの直前にティルデ・サイン(チルダ) ~ を置く

2003/08からの機能で Google 独自の辞書が使われているらしい

例: google ~help

電卓機能

一般的な関数電卓の機能 2005/10 換算機能が追加された。

Googleの特殊機能 に詳しい説明が無い

例: 4 * (5 - 3) 、sin(2) 、log(2) 等

例: 30坪は何平米 、4/3*π*地球の半径の3乗 等

参照

google電卓リファレンス

Google電卓のすさまじい機能一覧

Google日本語電卓がパワーアップ

Google電卓を利用した単位換算

路線・地図・辞書・株価・荷物検索.会社情報

現時点での詳細不明

参照:グーグルで路線や地図、株価なども検索可能に

日本のGoogleでも株価や路線、辞書などの特殊検索が可能に

例: 和英 魚 、株価 ヤフー

備考 Yahoo! Japan にもダイレクト検索と言う特殊検索機能がある

株価、天気、占い、競馬、ケータイ端末情報、タレントのプロフィール等Yahoo! Japanのコンテンツをダイレクトで検索できる

yahoo! ダイレクト検索の使い方  yahoo! 検索サービス一覧



Google翻訳

テキストとURL翻訳。英語を中心とした各国言語の相互翻訳機能で検索結果のページからも利用できる

Google Translate

翻訳機能に関する FAQ

サジェスト

日本語にも対応したクエリー入力補助機能で多く検索されたキーワードの候補を表示する

普通の検索結果のURLに "&complete=1" を追加しても良い

サジェスト
| インターネット | 14:09 | comments(1) | trackbacks(0) | pookmark |
デバッグの仕方
・まず黄色く反転している状態の時は「■」マークを押して解除



1)チェック方法1

  コードウィンドウの余白インジケータバーをクリックしてブレークポイントを指定。赤い丸印が表示される。

 →プログラムを実行。ブレークポイントで実行が中断され黄色く反転。

 →検証したい変数をポイントすると内容が表示される

  又は問題のステートメントを範囲選択し、右クリックして「ウォッチ式の追加」を選択すると画面下部に値が表示される。



2)チェック方法2

 ブレークポイントでプログラムがいったん停止したら、「F8」をクリック

 「F8」を押すごとにステップインでプログラム実行

 
| VBA | 17:31 | comments(0) | trackbacks(0) | pookmark |
携帯SEO
携帯SEO!( http://blog.mag2.com/m/log/0000206016/107631417.html )より抜粋

【ページタイトルとの一致】

ページタイトルと検索キーワードの一致率を読みます。

head間タグ、title間タグが重要になってきます。○

○○○もしくは○○○○の○○○○

の単語がキーワードとして重要になってきます。ソースを見

ればすぐにわかりますよね。

ですからページタイトルが重要です。

携帯サイトの本タイトルの前に、サブタイトルとしてhead間

タグ、title間タグのなかにキーワードを入れておきます。

例えば、宣伝代行のサイトなら

「掲示板 宣伝 掲示板宣伝代行 携帯 携帯掲示板」など

です。その後に本ページタイトルが表示されるようにしまし

ょう。サブタイトル(キーワード)は薄地の文字色にしてあ

まり目立たないようにした方がページデザイン的には良好だ

と思います。





【本文との一致】

本文テキスト内容と検索キーワードが一致するかを読みます。

検索されたキーワードが必ず本文内に含まれていることが必

要です。テキスト本文で意識して書きましょう。



【検索窓設置】

その検索エンジンの検索窓が設置されていることにより、ポ

イント加算されることがあります。

基本的に、ある検索エンジンでの表示順位を上げたければ、

その検索エンジンの検索窓の設置が必要になります。



【絵文字の存在】

携帯電話特有の絵文字が含まれているかを読みます。携帯電

話特有ですから、モバイルウェブサイトの大きな特徴として

検索エンジンに認識されます。

基本的にはコードを読みます。



【半角カタカナの優遇】

半角カタカナが文中に含まれていることにより、モバイル用

サイトとして認識し、ポイントを加算します。



【8文字改行の優遇】

全角8文字で強制改行が含まれているページの場合、モバイル

用サイトとして認識し、ポイントを加算します。



【リンクページ数】

自分の携帯サイトの子ページリンク、相互リンクを出来るだけ

多くしてください。ページリンクの数の多いサイトが重要視さ

れます。ただし、投稿型掲示板リンクなどはアルゴリズムから

除外されているようです。最強なのはランキングサイトです。

ランキングサイトだけを集めたリンク集は上位表示されやすく

なっています。ページリンク数も半端ではありませんからね。

また、現在の携帯サイトがランキングアクセス形態を取ってい

るので、どうしても検索ロボット的にも重要視されるのかもし

れません。

なお、上記の内容はすべての検索エンジンで共通して導入され

ている訳ではありませんので、あらかじめご了承ください。



【広告出稿・キーワードデータの収集】

SEO対策を本気でやるのであれば、一度、Googleモバイルアドワ

ーズ広告もしくはオーバーチュアの広告主となり、広告を出稿

してみるといいでしょう。自分で検索キーワードを試しに入力

したりしてキーワード情報の収集をすることはSEOの重要な

ポイントです。

http://services.google.com/adwords/mobile_ads_jp



オーバーチュアといえば、Yahoo!で検索したときに表示される

キーワード連動型広告。

これは主に広告主が1クリック9円から、広告を出稿し、掲載

するというものです。

オーバーチュアの登録は無料です。

サイトを持っている人であれば、誰でもオーバーチュアの広告

主になることができます。簡単な審査がありますが、オンライ

ンで登録できます。



登録が完了すると、広告主専用の画面にログインできるように

なります。

実は、ここの画面では、いろいろな情報が手にはいるのです。

例えば、先月、Yahoo!検索エンジンで、○○○というキーワード

が何回検索されたかが調べられます。



【検索エンジン自動登録ソフト】

掲示板自動書込みソフトですが、検索エンジン登録ソフトでもあ

り、すでに検索エンジンがリストアップされています。自分で検

索エンジンを追加やインポートすることができます。一括ですぐ

に登録できるので是非購入をお勧めします。3,400円とリーズナ

ブルです。同一携帯サイトを2週間に一回は登録することをお勧め

します。

http://create-alpha.com/sendena/
| mobile SEO | 16:33 | comments(0) | trackbacks(0) | pookmark |
YST更新、googleとyomisearch
YSTはキーワード過剰だと落とされる

googleはyomisearchが効かなくなってる
| 妹尾作業記録 | 10:32 | comments(0) | trackbacks(0) | pookmark |
| 1/3PAGES | >>